¿Qué es el número de línea en vb?

Un cuadro de texto y dos códigos de etiqueta son los siguientes:

Opción explícita

Const privada EM_GETSEL = amp HB0

Const privada EM_LINEFROMCHAR = amp; p >

Private Const EM_LINEDEX = amp；HBB

Función de declaración privada SendMessage Lib "user32" Alias ​​​​"número de línea en vb".p>Private Const EM_LINEINDEX = amp；HBB

Función de declaración privada SendMessage Lib "user32" Alias ​​​​"SendMessageA" (ByVal hwnd As Long, ByVal_ wMsg As Long, ByVal wparam As Long, lparam As Any) As Long

Private Sub Form_Load( )

Dim lineno As Long, colno As Long

Llamar a getCaretPos(Text1.hwnd, lineno, colno)

Label1.Caption = lineno

Etiqueta2.