[VB6] Textbox a capo ogni 10 caratteri

[S0nic]

Public DinLenght As Integer


Private Sub Text2_KeyDown(KeyCode As Integer, Shift As Integer)

Dim MaxLenght As Integer


MaxLenght = 10

DinLenght = DinLenght + 1

If DinLenght > MaxLenght Then

Text2.Text = Text2.Text & vbCrLf
DinLenght = 0

End If

End Sub