动态创建控件数组、及创建的控件数组响应事件
环境说明：
1、有三、个窗体。窗体1（find_Frm）/窗体2（opt_Frm）/ 窗体3（print_Frm）
2、find_Frm有按钮，命名为find2_cmd。opt_Frm有optionbutton,命名为optadd(0)
3、要求按find2_cmd以后，在opt_Frm上创建多个optionbutton控件数组optadd(a),且显示窗体2
4、点击optadd(a)任意一个，在窗体3(print_Frm)上显示数据内容。
——————————————————————————————————————
find_frm下 find2_cmd 部分代码如下（a已经赋值）
——————————————————————
    opt_Frm.Show
    ReDim optadd(a)
    For i = 1 To a
    opt_w = Int(i / 30)     
        opt_nm = find2(i) & find1(i)
        Set optadd(i) = opt_Frm.Controls.Add("vb.optionbutton", opt_nm)
        Load opt_Frm.optadd(i)
        optadd(i).Move 200 + opt_w * 2000, (i - opt_w * 30) * 400, 2000, 375
        optadd(i).Caption = opt_nm
        optadd(i).Visible = True   
        optadd(i).Font = "宋体"
        optadd(i).FontBold = True
        optadd(i).FontSize = 12
    Next i
   ————————————————————————————
opt_frm  下代码（r/w已赋值）
Private Sub optadd_Click(Index As Integer)
    ReDim opt_all(w)
        If optadd(Index).Value = True Then
            For j = 1 To r
                opt_temp = xlSheet.Cells(i, 1)
                If opt_temp = find1(Index) Then
                    For k = 1 To w
                        opt_all(k) = opt_all(k) + xlSheet.Cells(1, k) & "：" & xlSheet.Cells(j, k) & Chr(13) & Chr(13)
                    Next k
                End If
            Next j
        End If
    print_Frm.Show
    print_Frm.Print opt_all(k)
End Sub
 ————————————————————————————
问题：在窗体opt_Frm上可以创建出多个optionbutton控件，但对点击optadd（1 to a）无法做出响应。仅仅对optadd(0)有响应。
百思不得其解，VB小小白，求大神帮助。

好像问题出在这里
Set optadd(i) = opt_Frm.Controls.Add("vb.optionbutton", opt_nm)
opt_nm 是个变量，创建的不是控件数组。
可不知道怎么改。
5555555

辛苦了。我百度了很久都没解决，还得版主帮助。

这个是所有的文件，包含表格的

后上传的文件，带有表格excel的

变量r：全局变量。在主窗体load时候，给r赋值。r是execl的行数。
变量i：全局变量。这段代码执行之前，已给i赋值。
i：
    opt_Frm.Show
    ReDim optadd(a)
    For i = 1 To a
    opt_w = Int(i / 30)     
        opt_nm = find2(i) & find1(i)
        Set optadd(i) = opt_Frm.Controls.Add("vb.optionbutton", opt_nm)
        Load opt_Frm.optadd(i)
        optadd(i).Move 200 + opt_w * 2000, (i - opt_w * 30) * 400, 2000, 375
        optadd(i).Caption = opt_nm
        optadd(i).Visible = True   
        optadd(i).Font = "宋体"
        optadd(i).FontBold = True
        optadd(i).FontSize = 12
    Next i
这段代码执行完，opt_frm窗口在前端，窗口显示多个optionbutton。
我想的是：
点击不同的optionbutton，显示不同的数据。
现在问题是。optionbutton可以建立起来，可点击没有反应。窗体上实现建立的optionbutton（0），可以点击（为方便测试，没有隐藏）。

[此贴子已经被作者于2016-11-10 20:49编辑过]

sorry
opt_temp = xlSheet.Cells(i, 1)
应该是
opt_temp = xlSheet.Cells(j, 1)

现在主要的问题是：
建立的动态控件数组，好像没有成功。
控件可以建立多个，好像没有和之前窗体上建立的optadd(0),形成控件数组，都是单独的控件。
所以没法执行Private Sub optadd_Click(Index As Integer)里面的代码。

没解决
       Set optadd(i) = opt_Frm.Controls.Add("vb.optionbutton", opt_nm)

感觉是问题出在这里
可 不知道怎么改。

for each obj in optadd
  if obj.index>0 then
     unload obj
  end if
next

这段放到里面，没法执行。说 ，未初始化for循环。   我定义了obj变量，，Public obj As Variant