Controls visible / unvisible with command button

[mattster1010]

Hi All,

The below code will make the following set of controls visible when the command button is clicked, is there anyway to make the controls invisible when the command button is clicked again?

Private Sub Command373_Click()
Me.Label143.Visible = True
Me.Label145.Visible = True
Me.Label147.Visible = True
Me.Check144.Visible = True
Me.Check146.Visible = True
Me.Label364.Visible = True
Me.Combo336.Visible = True
Me.Check152.Visible = True
Me.Check154.Visible = True
Me.Label153.Visible = True
Me.Label155.Visible = True
End Sub

[CreganTur]

To make something invisible you just change the value to False.

Private Sub Command373_Click()
Me.Label143.Visible = False
Me.Label145.Visible = False
Me.Label147.Visible = False
Me.Check144.Visible = False
Me.Check146.Visible = False
Me.Label364.Visible = False
Me.Combo336.Visible = False
Me.Check152.Visible = False
Me.Check154.Visible = False
Me.Label153.Visible = False
Me.Label155.Visible = False
End Sub

If you want the same button to toggle visibility (click it once for .Visible = True, click same button again for .Visible = False) Then look at this kb entry from Simon Lloyd (http://vbaexpress.com/kb/getarticle.php?kb_id=940)

[OTWarrior]

You can try this to make it visible when invisible and vice versa with the one command:

Private Sub Command373_Click()
[Label143].Visible <> [Label143].Visible
[Label145].Visible <> [Label145].Visible
[Label147].Visible <> [Label147].Visible
[Check144].Visible <> [Check144].Visible
[Check146].Visible <> [Check146].Visible
[Label364].Visible <> [Label364].Visible
[Combo336].Visible <> [Combo336].Visible
[Check152].Visible <> [Check152].Visible
[Check154].Visible <> [Check154].Visible
[Label153].Visible <> [Label153].Visible
[Label155].Visible <> [Label155].Visible
End Sub

Or like this (may be quicker I think, although I haven't tested it):

Private Sub Command373_Click()
dim visCheck as Boolean

vischeck <> vischeck

[Label143].Visible = vischeck
[Label145].Visible = vischeck
[Label147].Visible = vischeck
[Check144].Visible = vischeck
[Check146].Visible = vischeck
[Label364].Visible = vischeck
[Combo336].Visible = vischeck
[Check152].Visible = vischeck
[Check154].Visible = vischeck
[Label153].Visible = vischeck
[Label155].Visible = vischeck
End Sub