creating new Image object

[RhinoBull]

You can do that in the loop - here is a general idea:

Option Explicit
 
Private Sub Command1_Click()
    'add 5 more pictureboxes
    AddMorePictures 5
End Sub
 
Public Sub AddMorePictures(iCount As Integer)
Dim i%
 
    For i = Picture1.UBound + 1 To iCount
        Load Picture1(i)
        With Picture1(i)
            .Picture LoadPicture("...")
            .Move '...
            .Visible = True
        End With
    Next i
 
End Sub