试试：
Private Sub Command1_Click()
Dim x As Control
Dim i As Integer

For Each x In Me.Controls

If LCase$(TypeName(x)) = "checkbox" Then
i = i + 1

End If
Next
MsgBox "检查框数量为：" & i

End Sub