Visual Basic - Número Líneas de un TextBox

Necesito incrementar el alto de un texBox a media que escribe. Ahora mismo la propiedad MultiLine permite escribir en varias líneas pero cuando llega al final de la caja de texto mueve el texto hacia arriba.
Si alguien sabe como conocer la cantidad de líneas de un texbox para así aumentar la propiedad Height de la caja de texto.
Muchísimas Gracias.

No te entendi a lo de incrementar el alto a medida de que escribes ????

Existe una API con la cual tu sabes cuantas lineas va utilizando en un TextBox


Public Declare Function SendMessageLong Lib "User32" Alias "SendMessageA" (ByVal hwnd as Long, ByVal wMsg as Long, ByVal wParam as Long, ByVal IParam as Long) As Long


Private Sub Text1_Change()
Dim Nlineas as Long
Nlineas = SendMessageLong(Text1.hwnd, &HBA,0&,0&)
´ Ahora en Nlineas tienes la cantidad de lineas que ha usado el Usuario
End Sub