添加一个OPTION控件，复制-粘贴，建立 控件组
比如复制6个
代码如下
Private Sub Command1_Click()
For i = 0 To 5
If Option1(i).Value = True Then MsgBox Option1(i).Caption & "被选中"
Next
End Sub
用数组控件
for i = option1.lbound to option1.ubound
if option1(i).value=true then
msgbox "option1(" & i & ")被选中"
exit for
end if
next i
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024