' zunächst die benötigten API-Deklarationen
Private Declare Function SendMessage Lib "user32" _
  Alias "SendMessageA" (ByVal hwnd As Long, _
  ByVal wMsg As Long, ByVal wParam As Long, _
  ByVal lParam As Any) As Long
 
Private Const EM_GETLINECOUNT = &HBA

Dim nCount As Long
nCount = SendMessage(TextBox.hwnd, EM_GETLINECOUNT, 0, 0&)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de