Easy Question...How to clear sequential listboxes

[micropathic]

Hi,

 

I am trying to clear 24 listbox on my form. They are all named like this: listbox1, listbox2, listbox3, etc.

 

My question is, how can I loop through all of them and clear them. Here's what I had come up with that didn't seem to work:

 

 

       Dim dirlistbox As string
       Dim i As Integer

          For i = 1 To 24
         
            dirlistbox = dirlistbox(i)
            dirlistbox.items.clear

          Next

[Iceplug]

ListBox1.Items.Clear()

ListBox2.Items.Clear()

 

or use a For Each loop:

For Each ctl In Me.Controls

If TypeOf ctl Is ListBox Then

:)

[CattleRustler]

yes, for-each is your friend and proves the uselessness of control arrays - they are already in collections which are arrays...

 

dim ctl as Control

For Each ctl In Me.Controls
   If TypeOf ctl Is ListBox Then
       clt.items.clear
   end if
next