添加一个OPTION控件,复制-粘贴,建立 控件组
比如复制6个代码如下:Private Sub Command1_Click() For i = 0 To 5 If Option1(i).Value = True Then MsgBox Option1(i).Caption & "被选中" NextEnd Sub
Private Sub Command1_Click()
If (Option1.Value = True) Then MsgBox ("Option1 is select!")
If (Option2.Value = True) Then MsgBox ("Option2 is select!")
End Sub
value值不同