ERFORDERLICHE OBJEKTE

2 Textboxes (Text1, Text2)
 FORM-CODE

   Private Sub Text1_KeyPress(KeyAscii As Integer)
      'Return gedrückt ?
      If KeyAscii = 13 Then
         'dann Tab simulieren
         SendKeys "{tab}"
         'Beep unterdrücken
         KeyAscii = 0
      End If
   End Sub

   Private Sub Text2_KeyPress(KeyAscii As Integer)
      'Return gedrückt ?
      If KeyAscii = 13 Then
         'dann Tab simulieren
         SendKeys "{tab}"
         'Beep unterdrücken
         KeyAscii = 0
      End If
   End Sub