Динамическое добавление контрола на форму

Set Fishka = Form1.Controls.Add('forms.image.1', 'Name')
   With Fishka
    .BorderStyle = 0 ' ругается 
    .Width = 495
    .Height = 495
    .Picture = Image2.Picture 'тоже ругается
    .Left =  800
    .Top = 800
    .Visible = True
End With

Load Image(1)
' позиционируешь его, как тебе надо
Image(1).Visible = True
'
Load Image(2)
' позиционируешь его, как тебе надо
Image(2).Visible = True

For Each childObj In Me.Controls
    If childObj.Container Is Picture1(0) Then
        Load childObj(1)
        childObj(1).Visible = True
    End If
Next

Dim frmClone() As Form
Dim OldStyle As Long, NewStyle As lOng
Dim rez As Lonh
' .....
N = ...
ReDim frmClone(1 To N)
For i = 1 To N
    Set frmClone(i) = New frmBase
    Load frmClone(i)
    With frmClone(i)
        OldStyle = GetWindowLong(.hWnd, GWL_STYLE)
        NewStyle = OldStyle And (Not WS_POPUP) Or WS_CHILD
        rez = SetWindowLong(.hWnd, GWL_STYLE, NewStyle)
        SetParent .hWnd, Me.hWnd
        .Left = 100
        .Top = (i - 1) * (frmBase.Height + 100)
        .Visible = True
    End With
Next

For i = 1 To N
    SetParent frmClone(i).hWnd, 0& ' или GetDesktopWindow() - один чёрт
    Unload frmClone(i)
    Set frmClone(i) = Nothing
Next
Unload frmBase
Set frmBase = Nothing
Set Form1 = Nothing

Private m_CloneID As Long
 
Public Property Let CloneID(ByVal NewValue As Long)
    m_CloneID = NewValue
End Property
 
Public Property Get CloneID() As Long
    CloneID = m_CloneID
End Property
 
Private Sub Command1_Click(Index As Integer)
    MsgBox 'CloneID = ' & m_CloneID
End Sub

.CloneID = i