List Box Hiding All help

[peet]

assuming one is visible at start, and the rest not visible or visa versa u can use this

Private Sub Command1_Click()
    Dim c As Control
    For Each c In Me
        If TypeOf c Is ListBox Then c.Visible = Not c.Visible
    Next c
End Sub