Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub
 
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        e.Handled = True
 
 
        If e.KeyCode = Keys.Down Then
            Select Case Me.ActiveControl.Name.ToLower
                Case "textbox1"
                    TextBox2.Focus()
                    Exit Sub
                Case "textbox2"
                    TextBox3.Focus()
                    Exit Sub
            End Select
        ElseIf e.KeyCode = Keys.Up Then
            Select Case Me.ActiveControl.Name.ToLower
                Case "textbox3"
                    TextBox2.Focus()
                    Exit Sub
                Case "textbox2"
                    TextBox1.Focus()
                    Exit Sub
            End Select
        End If
 
    End Sub