Private mouseDown As Boolean
    Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        If mouseDown Then Return
        mouseDown = True
        Do While mouseDown
            Debug.WriteLine("Mousedown")
            System.Threading.Thread.Sleep(1000) ' tue etwas
            Application.DoEvents()
        Loop
    End Sub
 
    Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
        mouseDown = False
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist