[beep]

تفضل اخي هذا الكود

كود :

Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
        X = Control.MousePosition.X - Button1.Location.X
        Y = Control.MousePosition.Y - Button1.Location.Y
    End Sub

    Private Sub Button1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseMove
        If e.Button = MouseButtons.Left Then
            NewPoint = Control.MousePosition
            NewPoint.X -= (X)
            NewPoint.Y -= (Y)
            Button1.Location = NewPoint
        End If
    End Sub