codice:
Private Sub Text1_Change(Index As Integer)
    Text1(2).Text = Text1(1).Text
End Sub