Navigate Textboxes

[mickey_pt]

You can do something like this:

Private Sub txt1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtUpLeft.KeyDown, txtUpRight.KeyDown, txtDownLeft.KeyDown, txtDownRight.KeyDown
        Dim strTxt As String = sender.name
        Select Case strTxt
            Case "txtUpLeft"
                If e.KeyCode = Keys.Right Then
                    txtUpRight.Focus()
                ElseIf e.KeyCode = Keys.Down Then
                    txtDownLeft.Focus()
                End If
            Case "txtUpRight"
                If e.KeyCode = Keys.Left Then
                    txtUpLeft.Focus()
                ElseIf e.KeyCode = Keys.Down Then
                    txtDownRight.Focus()
                End If
            Case "txtDownLeft"
                If e.KeyCode = Keys.Up Then
                    txtUpLeft.Focus()
                ElseIf e.KeyCode = Keys.Right Then
                    txtDownRight.Focus()
                End If
            Case "txtDownRight"
                If e.KeyCode = Keys.Up Then
                    txtUpRight.Focus()
                ElseIf e.KeyCode = Keys.Left Then
                    txtDownLeft.Focus()
                End If
        End Select
 
 
    End Sub