Drag & Drop with Frame / Groupbox

Hello,

I have 2 forms:

1) 6 pictures each in a PictureBox control like this:

1 2 3
[] [] []

4 5 6
[] [] []

2) 6 FrameBox / Groupboxes that contain the picture's information in the same above format.

I have implemented a Drag & Drop (kind of a "Drag and swap" places) code like this for the first form with 6 pictures:

Code:

---

Private Sub Picture2_DragDrop(Source As Control, X As Single, Y As Single)
    Dim objPic As StdPicture
   
    Set objPic = Picture2.Picture
    Set Picture2.Picture = Source.Picture
    Set Source.Picture = objPic
End Sub

---

This code allows me to arrange the 6 pictures however I like, for example: move the first image into the 6th picturebox's place and the 6th picture get automatically moveed to the 1st.

Is there an equivalent code for this so that at run-time while I'm rearranging the pictures, the second form will be updated immediately with the new information changed from the 1st and 6th spots?

In other words: the 6th Frame get's switched with the 1st Frame?

Thanks for your suggestions!

Chris