Dim moving As Boolean = False
Dim PrevX As Integer
Dim PrevY As Integer
Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
moving = True
Cursor = Cursors.Hand
PrevX = MousePosition.X
PrevY = MousePosition.Y
End Sub
Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
moving = False
Cursor = Cursors.Default
End Sub
Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
If moving Then
Button1.Location = New Point(Button1.Location.X + MousePosition.X - PrevX, Button1.Location.Y + MousePosition.Y - PrevY)
PrevX = MousePosition.X
PrevY = MousePosition.Y
End If
End Sub