codice:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As _
Integer, ByVal lParam As Long) As Long

Private Sub Command1_Click()
Const EM_LINEFROMCHAR = &HC9
Dim LineaCorrente As Long

LineaCorrente = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, Text1.SelStart, 0&)

MsgBox CStr(LineaCorrente)
End Sub