drag drop (vb.net)

[amodio]

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?

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

  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

[danielev]

Dovresti a mio avviso togliere le coordinate assulute del form all'interno del desktop

così:
New Point(Cursor.Current.Position.X - Me.Location.X - 5, Cursor.Current.Position.Y - Me.Location.Y - 5)

ho provato e ho visto che funge (avevo pure io un problema simile)

Ciao
daniele

[amodio]

Originariamente inviato da danielev
Dovresti a mio avviso togliere le coordinate assulute del form all'interno del desktop

così:
New Point(Cursor.Current.Position.X - Me.Location.X - 5, Cursor.Current.Position.Y - Me.Location.Y - 5)

ho provato e ho visto che funge (avevo pure io un problema simile)

Ciao
daniele

wow è vero""""
grazie

erano mesi che il cliente necessitava di questa modifica