ToggleButton verbergen dmv. For Each

[EdWel]

Goedemorgen jongelui,

Ik heb op Blad(1) vijftien ToggleButtons staan.
De eerste button dient om de andere 14 te verbergen of te laten zien.
Ik wil een korte code en heb vanalles uitgeprobeerd maar kom er niet achter.
Bijvoorbeeld dit:

Public OnOff as Boolean
OnOff = False

Sub Verberg(OnOff)
   Dim Elem As Control
   For Each Elem In controls
       Elem.Visible = OnOff
   Next Elem
   ToggleButton1.Visible = True
End Sub

Erg jammer, het werkt niet. Heeft iemand een oplossing?

Groet, Ed

 

[Hoornvan]

Als ik 2 ToggleButtons op mijn blad zet en onder ToggleButton1 de volgende code zet, verberg hij hem.
Kun je hier wat mee?

Private Sub ToggleButton1_Click()
  ToggleButton2.Visible = False
End Sub

 

[EdWel]

Ja en dat voor nog 13 buttons, maar dat moet toch veel korter kunnen?

De waarde van ToggleButton1 kan False of True zijn.
Met dat gegeven moet je volgens mij in 3 coderegels de rest kunnen bedienen.

Groet, Ed