CodeItBetter Programming Another VB Programming Blog

'Controls - How to Count the Number of lines in a Text Box
Option Explicit
 
Private Declare Function SendMessageAsLong Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const EM_GETLINECOUNT = 186
 
Public Function GetLineCount(ByRef txt As TextBox) As Long
    GetLineCount = SendMessageAsLong(Text1.hWnd, EM_GETLINECOUNT, 0, 0)
End Function
 
'How can I use this function:
Sub Main()
    Debug.Print GetLineCount(Text1)
End Sub