BOnjour a tout le monde

Dans mon projet j'ai 2 objets créés dynamiquement ( 1 objet pictubox et 1 objet panel )

Lorsque je bouge l'objet pictubox, je souhaiterais que l'objet panel bouge de la même façon. Y a t'il une solution a cela

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
private sub ceationObjet()
 
  pict(1) = New PbTimbres
  panelpict(1) = New PanelPage
 
 FrmPage.Panel1.Controls.Add(pict(1))
 FrmPage.Panel1.Controls.Add(Panelpict(1))
 
end sub
 
 
 
 
Public Class PbTimbres
      Inherits PictureBox
      Dim x, y As Integer
      Private Sub Me_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
 
            If e.Button = Windows.Forms.MouseButtons.Left Then
 
                  x = e.X
                  y = e.Y
 
            End If
 
      End Sub
 
      Private Sub Me_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
 
            If e.Button = Windows.Forms.MouseButtons.Left Then
 
                  sender.Left += (e.X - x)
                  sender.Top += (e.Y - y)
 
                  FrmPage.LblPage1.Text = Me.Left & "/" & Me.Top
 
            End If
 
      End Sub
End Class
 
Public Class PanelPage
 
 
End Class