Toggel Button

[0 Agios]

I am using 6 toggle buttons, if all are pressed, then a mesage box appers with the words "All Ok"
Help, its Sunday I need to go to the Zoo with the kids

 

[Jerry Sullivan]

When a ToggleButton is pressed, it's value will be -1, otherwise 0.
So if the sum of your 6 ToggleButtons is -6, then you know
they are all pressed.

The code could look like this...

Private Function areAllPressed() As Boolean
    areAllPressed = -6 = ToggleButton1 + ToggleButton2 + ToggleButton3 _
        + ToggleButton4 + ToggleButton5 + ToggleButton6
End Function

Private Sub ToggleButton1_Click()
    If areAllPressed Then MsgBox "All OK"
End Sub

Private Sub ToggleButton2_Click()
    If areAllPressed Then MsgBox "All OK"
End Sub

'repeat for each toggle button

Looks like it's getting late in Florida - I hope you made it to the Zoo with the kids!