salve a tutti
devo spostare un pulsante sul form tramite drag e drop

tramite questo codice, lo sposto, ma appenna rilascio il mouse si posiziona in un punto diverso dalle coordinate del mouse

in genere prendo la x e y del mouse e le associo alle location
del pulsante (ma non le rispetta)

cosa posso fare?
codice:
Private Sub Pulsante_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)

        drag = False'variabile di form per determinare che sto facendo drag
        Dim Controllo As Control = sender

        Controllo.DoDragDrop(Controllo, DragDropEffects.Copy)
        drag = True

    End Sub
'qui c'è l'errore

codice:
  Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 

MyBase.MouseMove
        If drag = False Then Exit Sub

                   Pulsante.Location = New Point(Cursor.Current.Position.X , Cursor.Current.Position.Y )

        drag = False
    End Sub