Как получить число строк в текстовом окне и номер текущей строки

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

Private Const EM_GETLINECOUNT = &HBA
Private Const EM_LINEFROMCHAR = &HC9

Dim LineCount As Long
Dim CurrentLine As Long
' Число строк в текстовом окне
LineCount = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, 0)
' Номер текущей строки
CurrentLine = SendMessage(Text1.hwnd, EM_LINEFROMCHAR, Text1.SelStart, 0) + 1