Public Function CreateNewControl(ParentForm As Form, ClassName As String, Name As String) As Object
Set CreateNewControl = ParentForm.Controls.Add(ClassName, Name)
End Function
Dim img(3) As Image
Private Sub Command1_Click()
Set img(0) = CreateNewControl(Form1, "vb.image", "Img0", "Img1"...