Private Sub TestForm3_KeyDown(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        Select Case e.KeyValue
            Case Keys.Return, Keys.Tab, Keys.Down
                Me.ProcessTabKey(True)
            Case Keys.Up
                Me.ProcessTabKey(False)
 
        End Select
    End Sub