انتقال ساده مکان نما

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