CurrentLineTxt

Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Public Const EM_LINEFROMCHAR = &HC9
'_________________________________________________________

Sub Text1_Change()
' 'get the line the cursor is currently on

Dim currLine&
On Local Error Resume Next
currLine& = SendMessageLong(Text1.hwnd, EM_LINEFROMCHAR, -1&, 0&) + 1
lblcurrLineNo = Format$(currLine&, "##,###")
End Sub