Private Sub frmMain_KeyPress(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
 
        If e.KeyChar = ControlChar.Tab Then e.KeyChar = chr(ASCII-Code für _
          rechts)
 
End Sub