[VB_Coder]

السلام عليكم

- إستخدم حدث ال KeyDown لكل تكست بوكس ، كالتالي :

كود :

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

IF KeyCode = 13 Then
Text2.SetFocus
Exit Sub
End If

End Sub

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

IF KeyCode = 13 Then
Text3.SetFocus
Exit Sub
End If

End Sub

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

IF KeyCode = 13 Then
Text1.SetFocus
Exit Sub
End If

End Sub

- تحياتي .