使用Windows API for Edit Control
获得当前行数:EM_LINEFROMCHAR EM_LINEINDEX
获得总行数
Const EM_GETLINECOUNT = &HBA
Private Declare Function SendMessageBynum Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
ret = SendMessageBynum(Text1.hwnd, EM_GETLINECOUNT, 0, 0&)