Private Sub fMain_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
Select Case e.KeyCode
Case Keys.Up
Me.SelectNextControl(Me.ActiveControl, False, True, False, True)
Case Keys.Down
Me.SelectNextControl(Me.ActiveControl, True, True, False, True)
End Select
End Sub