Private Sub Option1_KeyPress(KeyAscii As Integer) If KeyAscii = 9 Then Option2.SetFocus End If End Sub
KeyAscii = 9 is the code for the Tab key. But you have to do this for all of your switches.
If you add your switches belonging to the same switch having indices 0, 1, 2, you can do it as follows:
Private Sub Option1_KeyPress(Index As Integer, KeyAscii As Integer) If KeyAscii = 9 Then If Index < Option1.Count - 1 Then Option1(Index + 1).SetFocus Else Option1(0).SetFocus End If End If End Sub
source share