Description

show amount of lines in a multi line textbox

Author

Anon

Code

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

Dim lngLineCount As Long
On Error Resume Next

'get/show the number of lines in the edit control
lngLineCount = SendMessageLong(Text1.hwnd, EM_GETLINE, 0&, 0&)
Label1 = Format$(lngLineCount, "##,###")

Information

tested using VB 6 , Windows 98 , 2000 , XP

Download

amountlines.txt