Private Declare Function SendMessage Lib "user32" Alias _
   "SendMessageA" _
   (ByVal hwnd As Long, ByVal wMsg As Long, _
    ByVal wParam As Long, lParam As Any) As Long
 
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
 
End Type
 
Private Const EM_GETLINECOUNT = &HBA
Private Const EM_GETRECT = &HB2
 
Private r As RECT
 
Private Sub Form_Load()
   SendMessage Text1.hwnd, EM_GETRECT, 0, r
End Sub
 
Private Sub Text1_Change()
    Dim n As Long
    Static m As Long
 
    n = SendMessage(Text1.hwnd, EM_GETLINECOUNT, 0, ByVal 0)
    If n = 1 Then m = 1
 
    If n > m Then
       Text1.Height = Text1.Height + (r.Bottom * Screen.TwipsPerPixelY)
       m = n
    End If
End Sub