代码如下：
Dim rbal(32) As CheckBox
For i As Integer = 0 To 32
rbal(i) = New CheckBox
rbal(i).AutoSize = False
rbal(i).Height = 35
rbal(i).Width = 35
'rbal(i).Appearance = "Button"
rbal(i).Font = New Font("宋体", 12, FontStyle.Bold)
rbal(i).Top = gb2.Top + 10
rbal(i).Left = gb2.Left + 5 + (rbal(i).Width + 5) * i
gb2.Controls.Add(rbal(i))
AddHandler rbal(i).Click, AddressOf checkredball
rbal(i).Show
Next
现在这段代码不能添加控件到窗口，请问是哪里有问题？

先添加一个非数组形式的组合框试一试！