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_GETLINECOUNT = &HBA '_________________________________________________________ Sub Text1_Change() Dim lineCount& On Local Error Resume Next lineCount& = SendMessageLong(Text1.hwnd, EM_GETLINECOUNT, 0&, 0&) lblLineCount = Format$(lineCount&, "##,###") End Sub |