Hola, ayer les pregunté si había alguna forma de limitar el número de caracteres que se podían introducir en una caja de texto, pero en vez de mediante la propiedad maxlenght, limitándolo a una longitud (en pixels, cm, ...) determinada de la caja de texto, de forma que si todo fuesen "i" pues cupiesen por ejemplo 90, mientras que si fuesen "O" tan solo cupiesen 25, ... . Bueno, pues antes estuve probando una cosa y me funciona, y la verdad es que es muy simple; lo mando a la lista por si a alguien le pudiese servir.
Utilizo la propiedad maxlenght de la caja de texto junto con la propiedad autosize de una etiqueta a la que envio el texto que voy escribiendo, y que tanto la caja de texto como la etiqueta tienen el mismo tipo y tamaño de fuente.
Private Sub Text1_Change()
Label1.Caption = Text1.Text
Label1.AutoSize = True
If Label1.Width > 2800 Then 'Así determino la longitud máxima
Text1.MaxLength = Len(Text1.Text)
Else
Text1.MaxLength = 0
End If
End Sub
Saludos.