[ابو محمد محمد محمد]

لا مشكلة فقط اعتقدت ان الذي يتلخبط ربما الكود نفسه وليس ناتجه

على العموم جرب هذا الكود

كود :

Dim Offset As Point

   Private Sub SimpleButton3_MouseDown(sender As Object, e As MouseEventArgs) Handles Button1.MouseDown
       Offset = New Point(-e.X, -e.Y)
   End Sub

   Private Sub SimpleButton3_MouseMove(sender As Object, e As MouseEventArgs) Handles Button1.MouseMove
       
       If e.Button = Windows.Forms.MouseButtons.Left Then
           Dim Pos As Point = Me.PointToClient(MousePosition)
           Pos.Offset(Offset.X, Offset.Y)
           Button1.Location = Pos
       End If


   End Sub