Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
Option Explicit
Private LastList as integer
Private Sub Form_Load()
Dim i as integer
For i = 0 to 11
'//Make all the listboxes invisible.
ListBox(i).Visible = False
Next
'//Initialize last listbox index
LastList = 0
End Sub
Private Sub Combo1_Change()
'//Make the last visible listbox invisible
ListBox(LastList).Visible = False
'//Make the new listbox visible
ListBox(Combo1.ListIndex).Visible = True
'//Save the index of the new listbox
LastList = Combo1.ListIndex
End Sub
[code]
This is a terrible way of doing it, but it works.
It will show only the listbox corresponding to the item you selected in the combobox. O, yes. Set the ComboBox's style to dropdown listbox (2) _________________
Bixarrio
e = m * (c ^ 2)
+ Topic 1
| + Subtopic 1 of Topic 1
| + Subtopic 2 of Topic 1
+ Topic 2
| + Subtopic 1 of Topic 2
| + Subtopic 2 of Topic 2
+ Topic 3
+ Subtopic 1 of Topic 3
+ Subtopic 2 of Topic 3