[VB6]Déplacement PictureBox

Bonjour

Voila j'ai un picturebox d'ou j'apelle une image en memoire et je voudrais que ce picturebox apparaisse de facon aleatoire dans ma Form et pouvoir le glisser ou je veut avec la souris ,je precise que j'apelle le picturebox a partir d'un label:

Code:

---

1 2 3 4 5

Private Sub L01_Click() Dim Tmp As IPicture Set Tmp = LoadPicture(App.path & "\Image\environs de Lyon" & ".jpg") Picture1 = Tmp end sub

---

Je sais qu'il y as MouseMove mais je ne sais pas m'en servir
Merci pour la reponse

voir dans Faq et Tutos :
Drag and Drop

Voila mon code,mais des que je passe sur le picturebox il disparait :(

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim INT_X As Single Dim INT_Y As Single     Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If INT_X <> X Then Picture1.Left = Picture1.Left + (X - INT_X) End If If INT_Y <> Y Then Picture1.Top = Picture1.Top + (Y - INT_Y) End If INT_X = X INT_Y = Y End Sub

---

http://vb.developpez.com/faq/?page=Autres#dragdrop

patoch76, puis-je te demander, à l'avenir, de mettre un Tag définissant ton environnement de développement dans le titre.

Je viens de le faire pour toi.

Désolé AlaiTech pour cette oubli , je suis bien en VB6

je ne peut pas mettre le tag résolu car je n'ai pas encore réussi a faire fonctionner le code .
J'ai mis le code suivant mais la picturebox bouge seulement de 1 cm et disparait.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Picture1.Left = Picture1.Left + (X - int_X) Picture1.Top = Picture1.Top + (Y - int_Y) Else int_X = X int_Y = Y End If End Sub

---

J'attend de l'aide :(

Ca y est j'ai trouvé il fallait juste que je mette ScaleMode de mon Picturbox sur Pixel