Dim m_Cnt As Long
 
Private Sub Command_MouseDown(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
  m_Cnt = 0
  Timer.Enabled = True
End Sub
 
Private Sub Command_MouseUp(Button As Integer, Shift As Integer, X As Single, Y _
  As Single)
  Timer.Enabled = False
End Sub
 
Private Sub Form_Load()
 
  Timer.Enabled = False
  Timer.Interval = 100
 
End Sub
 
Private Sub Timer_Timer()
 
  m_Cnt = m_Cnt + 1
  Label = m_Cnt
 
End Sub

Gruß
Dirk

--
?Get it right the first time