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

�