Hola a ver si te sirve este ejemplo que es para poner en un listbox el estado de los checkbox si esta clicado verdadero y si no lo esta falso.
El ejemplo recorre todos los checkbox del formulario, claro si tienes otros que no quieres comprobar quizas no te sirva.
Para el ejemplo coloca en un form un listbox , un command1, y 4 checkbox
COMPRUEBA clicando y desclicando y dandole al boton COMPROBAR(COMMAND1)
quizas te sea util , lo que hace CBool es Convertir una expresión a un valor de tipo Boolean (true o false)
Cita: Private Sub Form_Load()
Command1.Caption = "COMPROBAR"
End Sub
Private Sub Command1_Click()
List1.Clear
Dim micontrol As Control
For Each micontrol In Controls
If TypeOf micontrol Is CheckBox Then
Select Case CBool(micontrol.Value)
Case CBool(micontrol.Value) = False
List1.AddItem (micontrol.Caption & "-->" & CBool(micontrol.Value))
Case CBool(micontrol.Value) = True
List1.AddItem (micontrol.Caption & "-->" & CBool(micontrol.Value))
End Select
End If
Next
End Sub
SALU2