DTPicker.setfocus Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then ComboBox.SetFocus End If End Sub Private Sub ComboBox_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then textbox.SetFocus End If End Sub
Private Sub DTPicker1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
ComboBox.SetFocus
End If
End Sub
Private Sub ComboBox_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
textbox.SetFocus
End If
End Sub