drag drop label

Bonjour,

voici le code que j'ai écrit et ça marche bien

Code:

1
2
3
4
5
6
7
8
9
10
11
  Private Sub Label3_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Label3.MouseDown
        Label3.DoDragDrop(Label3, DragDropEffects.Move)
    End Sub
 
    Private Sub Form2_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragDrop
        Label3.Location = New Point(e.X, e.Y)
    End Sub
 
    Private Sub Form2_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles Me.DragEnter
        e.Effect = DragDropEffects.Move
    End Sub