[vb6] Visualizzare colonna e numero di riga su cui sta il cursore in una txtbox

[Mabi]

Cosa intendi per colonna di una TxtBox ?
Per conoscere su quale riga si sta scrivendo prova così:

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


Const EM_LINEFROMCHAR = &HC9
Dim Linea  As Integer

Linea = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, Text1.SelStart, 0&)
Linea = Linea + 1

MsgBox CStr(Linea)