Private Sub SelezionaRiga(riga As Integer)
Dim i As Integer, k As Integer, ultimo As Integer
1
i = i + 1
i = InStr(i, Text1.Text, vbCrLf)
If i > 0 Then
k = k + 1
If k = riga Then
Text1.SelStart = ultimo
Text1.SelLength = i - ultimo - 1
Else
ultimo = i
GoTo 1
End If
End If
End Sub
|