如何建立控件数组？

Question

Dim i As Long
    Dim j As Long
    
    i = Picture1.Count
    Load Picture1(i)
    
'   下面这两句是为了测试时看得到新加载的Picture1用的
'    Picture1(i).Left = Picture1(i).Left + 1200
'    Picture1(i).Top = Picture1(i).Top + 1200
    
    Picture1(i).Visible = True
    
    j = Label1.Count
    Load Label1(j)
    Label1(j).Visible = True
    
    Set Label1(j).Container = Picture1(i)
每次执行以上的这段代码，将新建一组PictureBox和Label的控件组合。