Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Private Sub Text1_Change()
Dim i As Integer
Dim o, lo As String
Label1.AutoSize = True
For i = 1 To Len(Text1)
o = Mid(Text1, i, 1)
lo = lo & o & vbCrLf
Next
Label1.Caption = lo
End Sub
