Private Sub TabControl1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TabControl1.KeyDown
If e.KeyCode = 17 Or e.KeyCode = 37 Or e.KeyCode = 39 Then
Button1.Focus()
End If
End Sub
Private Sub TabControl1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TabControl1.KeyUp
If e.KeyCode = 17 Or e.KeyCode = 37 Or e.KeyCode = 39 Then
Button1.Focus()
End If
End Sub