Option Explicit
Private bIsDown As Boolean
 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  Dim nTime As Single
 
  nTime = Timer
  bIsDown = True
 
  Do While bIsDown
    If Timer - nTime >= 5 Then
      ' Ereignis auslösen
      MsgBox "Ereignis"
      Exit Do
    End If
    DoEvents
  Loop
End Sub
 
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, _
  X As Single, Y As Single)
 
  bIsDown = False
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de