Private Sub PictureBox1_MouseDown() Handles PictureBox1.MouseDown
 
        Timer1.Start()
 
    End Sub
 
    Private Sub PictureBox1_MouseUp() Handles PictureBox1.MouseUp
 
        Timer1.Stop()
 
    End Sub
 
    Private Sub Timer1_Tick() Handles Timer1.Tick
 
        PictureBox1.Location = New Point(Cursor.Position)
 
    End Sub

Keine Signatur; kein ?rger.