checkBox选中问题
在窗体上有6个checkBox控件，一个按钮，一个label控件，任意选中checkBox中的一个或者多个，电击按钮，label的Caption属性将显示被选中的checkBox的Caption,请大家帮忙，我不知道怎么写，按死方法去写感觉太笨了，谢谢！
[解决办法]
把这些checkbox做成数组
[解决办法]
同意楼上，代码如下。
sub checkbox_click(index)
label(index).caption=checkbox(index).caption
end sub
上面只是简单说明，真正能运行的代码自己写吧。
[解决办法]
Private Sub Command1_Click()
Dim i As Integer
Dim str As String
For i = 0 To 3
If Me.Check1(i).Value = 1 Then
str = str & Me.Check1(i).Name & "*** " & i & Space(5)
End If
Next
Me.Label1.Caption = str
End Sub
[解决办法]
Private Sub Check1_Click(Index As Integer)
Dim str As String
For i = 0 To 5
If Check1(i).Value = 1 Then
str = str & Check1(i).Caption
Label1.Caption = str
End If
Next
End Sub
[解决办法]
Check1(i).Name --> > Check1(i).Caption
