添加1個復選框(Check1),選中它,用“復制”命令工具復制,然後用“粘貼”工具按鈕,系統會提問是否創建控件組,回答“是”,繼續復制若幹個。
窗體上填加1個按鈕,代碼如下:
Private Sub Command1_Click()
Dim i As Integer
For i = 0 To Check1.UBound
If Check1(i).Value = 1 Then MsgBox "選中了" & i
Next i
End Sub
妳運行起來,體驗壹下,“OK”,根據自己需要,具體修改吧!