Option Explicit
Dim lPressTime As Long
 
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
  lPressTime = Timer
End Sub
 
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  MsgBox "Button wurde für " & _
    Format$(Timer - lPressTime, "0.00") & " Sek. gedrückt."
End Sub