Как программно создать массив Image'ов?

[Vitja3000]

Всем привет.

Возник вопрос, как можно программно создать, к примеру, массив обьектов image или PictureBox.
Облазил весь форум, ничего вразумительного ненашел.

Private Sub Command1_Click()
Dim Image1
Set Image1 = createobject("vb.image")
End Sub

Непоканало... Выдает ошибку ActiveX component can't create object

Пожалуйста помогите разобраться. Заранее спасибо.

[Amed]

Код: Выделить всё

Dim i As Integer

For i = 1 To 3
    Load Image1(i)
   
    With Image1(i)
        .Left = i * 1000
        .Top = i * 200
        .Visible = True
    End With
Next i

При этом на форме ещё Image1 с индексом 0.

[Vitja3000]

Amed огромное тебе человеческое спасибо... выручил