' Folgende API-Deklaration wird benötigt
Private Declare Function SendMessage 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 = &HBA

' Anzahl Zeilen ermitteln und prüfen
Dim nCount As Long
nCount = SendMessage(Text1.hWnd, EM_GETLINECOUNT, -1, 0&)

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de