Option Explicit
Dim bWasClick As Boolean
 
Private Sub UserControl_MouseDown(...)
  bWasClick = True
End Sub
 
Private Sub UserControl_MouseUp...)
  bWasClick = False
End Sub
 
Private Sub UserControl_Click(...)
  If bWasClick Then
    RaiseEvent Click
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de