Private Sub RichTextBox1_KeyPress(KeyAscii As Integer)
  Static nTime As Single
 
  ' Abfragen, ob ENTER 2x schnell hintereinander gedrückt wurde
  If nTime > 0 And Timer - nTime < 0.3 Then
    ' Enter wurde innerhalb 0.3 Sekunden zweimal gedrückt
    KeyAscii = 0
    MsgBox "Doppelt-Enter"
    Exit Sub
  End If
 
  nTime = Timer
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de