Moving Multiple Controls

[ImpShial]

I am looking for some help on moving controls by dragging.

Say I have three controls on a form. I'd like to be able to hold down the left mouse button on ANY one of them, and wherever I drag the controls (they would move with the mouse, not just a drag icon) and drop them, they would keep there relative positions from each other, just at a different place on the form.

As an example, take a flow charting app like Visio. With more than one shape selected, the user can drag the shapes anywhere in the working area. This is what I'm looking for.

Any help would be appreciated, even a shove in the right direction.

Thanks.

Imp

[CVMichael]

This example is using a picture box, but you can use anything that has the MouseDown and MouseMove events.

' Global variables...
Private Pic1X As Single, Pic1Y As Single
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Pic1X = X
        Pic1Y = Y
    End If
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Picture1.Left = Picture1.Left - (Pic1X - X)
        Picture1.Top = Picture1.Top - (Pic1Y - Y)
    End If
End Sub