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_GETLINE = &HC4
Private Const EM_GETLINECOUNT = &HBA
 
'-------der Aufruf:--------
'LinienZahl ist ein Integer
 
LinienZahl  = SendMessage(TextBox1.Handle.ToInt32, EM_GETLINECOUNT, 0, 0&)

LinienZahl  = SendMessage(TextBox1.Handle.ToInt64, EM_GETLINECOUNT, 0, 0&)

LinienZahl  = SendMessage(TextBox1.Handle.ToString, EM_GETLINECOUNT, 0, 0&)

'Der Fehler liegt im Betriebssystem.
Mein Code ist immer, ?hm, perfekt.'
Zitat von Linus Torvalds aus 'Just for Fun'
(seeehr frei).