VB6 Tasto tab e invio

[laccamen]

prova questo,
ricorda di impostare i text come matrice di controllo

Private Sub Text1_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case 39 ' freccia destra
Text1(Index + 1).SetFocus
Case 37
Text1(Index - 1).SetFocus
Case 38 ' freccia giù

Case 40 'freccia su
Text1(Index + 1).SetFocus
End Select
End Sub

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 13 ' enter
Text1(Index + 1).SetFocus
Case 2
Case 3
End Select
End Sub