
NumOle = Me.Controls.Count |
Private Sub CommandButton1_Click()
Dim numcas As Integer
Dim ctrl As Control
numcas = 0
For Each ctrl In Me.Controls
If TypeName(ctrl) = "CheckBox" Then
numcas = numcas + 1
End If
Next ctrl
MsgBox numcas
End Sub
|
