Public Class Form1
  Private WithEvents oTimer As Timer
  Private Counter As Long
 
  Private Sub Button1_MouseDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
 
    ' Timer starten
    If IsNothing(oTimer) Then oTimer = New Timer
    oTimer.Interval = 100
    oTimer.Start()
  End Sub
 
  Private Sub Button1_MouseUp(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
 
    ' Timer stoppen
    oTimer.Stop()
  End Sub
 
  Private Sub oTimer_Tick(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles oTimer.Tick
 
    ' Vartiable hochzählen
    Counter += 1
 
    ' zum Test: Anzeige in der Titelzeile
    Me.Text = Counter
  End Sub
End Class

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de