Bonjour toutes et tous
J'ai trouvé ceci merci à A2H
si cela peut aider, attention les 2 images sont en (.gif)
Option Explicit
' déclaration des variables
Dim X0 As Single, Y0 As Single
Private Sub Label1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
X0 = X: Y0 = Y
End Sub
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
If Button = 0 Then Exit Sub
Label1.Left = Label1.Left + X - X0
Label1.Top = Label1.Top + Y - Y0
End Sub
crdlt,
André