He realizado una clase para limitar la cantidad de líneas que podemos introducir en un textbox multilínea, tema que había surgido en una lista de correo.

Para usarla simplemente :

Declaramos una variable a nivel de formulario :

Dim TML As cTextMaxLineas

Y en el Load del formulario le asignamos el textbox que queremos limitar:

Set TML = New cTextMaxLineas
TML.Asignar Text1

En el método Asignar podemos también indicar el número de líneas que queremos que tenga el textbox como máximo.
Si no indicamos el número de líneas, la clase lo calcula teniendo en cuenta el alto del textbox y el tipo de letra del formulario, por lo que si no coincide con el empleado en el textbox debemos indicarlas manualmente.

 ctextml.zip