VB.NET Code:
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