Private Maus As Boolean
 
    Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        Maus = True
        Do While Maus
            My.Application.DoEvents()
            ' Dein Code
        Loop
    End Sub
 
    Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
        Maus = False
    End Sub

Gruss Caddy