Devil World

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 Sub Cmd_NoLine_Click()
Dim lngLineCount As Long
On Error Resume Next
lngLineCount = SendMessage(Text1.hwnd, &HBA, 0&, 0&)
MsgBox Format$(lngLineCount, "##,###")
End Sub