List Box Hiding All help

[scsa20]

yeah, this one dude needs help hinding all of his List boxes in one line...ok, he wants it showing only 1 list box while hiding all the other ones (which is 47 list boxes), and when the user clicks on a button, it well hide that one list box and show all the other list boxes.

is it possable?? and if it is, what is the code??

[peet]

what one line of code?

[seoptimizer2001]

Make an array of listboxes then:

Private Sub Button_click()
Dim i as Integer
 
For i = 0 to 46 'all listboxes
    If i = 4 'the one that you want to show then
        List1(i).Visible = True
    Else
        List(i).Visible = False
    End If
Next

Is this what you mean?

[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

[peet]

?? u don't make much sence today ?? what are u on about?