Взаимный обмен параметров у объектов (похоже на пятнашки)

Option Explicit
 
Dim Fld As clsField
 
Private Sub cmdLabels_Click()
    Set Fld = Nothing
    Set Fld = New clsField
    Set Fld.Parent = Me
    Fld.LoadControls "VB.Label", 15
    LocateLabels 40, 20, 50, 50, 100, 50, 5
End Sub
Private Sub cmdPictures_Click()
    Set Fld = Nothing
    Set Fld = New clsField
    Set Fld.Parent = Me
    Fld.LoadControls "VB.PictureBox", 15
    LocatePictureBoxes 35, 35, 50, 50, 100, 50, 5
End Sub
 
Private Sub LocateLabels(Width As Long, Height As Long, _
                   X As Long, Y As Long, _
                   SpacingW As Long, SpacingH As Long, _
                   Rows As Long)
    Dim lX As Long, lY As Long, i As Long, Itm As clsItem
    lX = X: lY = Y
    For Each Itm In Fld.Items
        Itm.Control.Move lX, lY, Width, Height
        Itm.Control.Visible = True
        Itm.Control.Caption = i
        Itm.Control.BackStyle = 1
        Itm.Control.BackColor = QBColor(Rnd * 15)
        lY = lY + SpacingH
        i = i + 1
        If i And (i Mod Rows) = 0 Then lX = lX + SpacingW: lY = Y
    Next
End Sub
Private Sub LocatePictureBoxes(Width As Long, Height As Long, _
                   X As Long, Y As Long, _
                   SpacingW As Long, SpacingH As Long, _
                   Rows As Long)
    Dim lX As Long, lY As Long, i As Long, Itm As clsItem
    lX = X: lY = Y
    For Each Itm In Fld.Items
        Itm.Control.Move lX, lY, Width, Height
        Itm.Control.Visible = True
        Set Itm.Control.Picture = iglIcon.ListImages(Int(iglIcon.ListImages.Count * Rnd) + 1).Picture
        lY = lY + SpacingH
        i = i + 1
        If i And (i Mod Rows) = 0 Then lX = lX + SpacingW: lY = Y
    Next
End Sub

Option Explicit
 
Dim mItems As New Collection
Dim mParent As Form
 
Public Property Get Items() As Collection
    Set Items = mItems
End Property
Public Property Get Parent() As Form
    Set Parent = mParent
End Property
Public Property Set Parent(Value As Form)
    Set mParent = Value
End Property
Public Function LoadControls(Class As String, ByVal Count As Long) As Boolean
    Dim Tmp As clsItem, Counter As Long
    If mParent Is Nothing Then Exit Function
    Do Until Counter = Count
        Set Tmp = New clsItem
        Set Tmp.Control = mParent.Controls.Add(Class, "arrCtl" & Counter, mParent)
        mItems.Add Tmp
        Counter = Counter + 1
    Loop
End Function
Private Sub Class_Initialize()
    Set mItems = New Collection
End Sub
Private Sub Class_Terminate()
    Dim i As Long, Itm As clsItem
    If Not mParent Is Nothing Then
        i = 0
        Do While i < mParent.Controls.Count
            For Each Itm In mItems
                If mParent.Controls(i) Is Itm.Control Then mParent.Controls.Remove (i): i = i - 1: Exit For
            Next
            i = i + 1
        Loop
    End If
    Set mItems = Nothing
End Sub

Option Explicit
 
Dim WithEvents Lab As Label
Dim WithEvents Pic As PictureBox
Dim Ctl As Control
 
Public Property Get Control() As Control
    Set Control = Ctl
End Property
Public Property Set Control(Value As Control)
    Set Ctl = Value: If Ctl Is Nothing Then Unload Me: Exit Property
    Ctl.DragMode = vbAutomatic
    If TypeOf Ctl Is PictureBox Then
        Set Pic = Value: Set Lab = Nothing
    ElseIf TypeOf Ctl Is Label Then
        Set Pic = Nothing: Set Lab = Value
    End If
End Property
 
Private Sub Lab_DragDrop(Source As Control, X As Single, Y As Single)
    If Source Is Ctl Then Exit Sub
    X = Source.Left: Y = Source.Top
    Source.Left = Lab.Left: Source.Top = Ctl.Top
    Lab.Left = X: Lab.Top = Y
End Sub
Private Sub Pic_DragDrop(Source As Control, X As Single, Y As Single)
    If Source Is Ctl Then Exit Sub
    X = Source.Left: Y = Source.Top
    Source.Left = Pic.Left: Source.Top = Pic.Top
    Pic.Left = X: Pic.Top = Y
End Sub