动态导入控件,并设置所在容器

Question

我现在要做一个程序
  希望用控件数组动态的导入控件,并将控件导入了 picture11里面,该如何设置呢导入的窗体里面没有问题,关键时导入的对应原容器里面,并保留控件的index 不错,急谢谢各位了 ,以下是导入的窗体里面的代码   For i = 0 To 20
     
    For n = 0 To 20
     If n <> 0 Then
     Load Command1(n + i * 20)
     Command1(n + i * 20).Left = n * 1200 + 20 '(宽度)
     Command1(n + i * 20).Top = i * 600 + 10
     Command1(n + i * 20).Visible = True
     Command1(n + i * 20).Caption = n + i * 20
 
 
    End If
   Next n
   
 Next i该如何导入的picture 里面呢

Answer 1

你创建控件数组时，command1（0）放在picture里边就行了command1（0）在哪里，你load的那些控件就在哪里了

Answer 2

Private Sub Command1_Click(Index As Integer)
    For i = 0 To 20
         
        For n = 0 To 20
         If n <> 0 Then
         Load Command1(n + i * 20)
         Command1(n + i * 20).Left = n * 1200 + 20 '(宽度)
         Command1(n + i * 20).Top = i * 600 + 10        
         Command1(n + i * 20).Caption = n + i * 20
         Set Command1(n + i * 20).Container = Picture1
         Command1(n + i * 20).Visible = True
        End If
       Next n
       
     Next iEnd Sub

Answer 3

set Command1(n + i * 20).container = picture1