Enumeration through controls on form....Easy one!?

[cvaden]

I want to enumerate through all of the controls on any given form and list their names in a listbox.

for example(obviously this doesn't work!)

For z = 0 to me.controls.count - 1
list1.additem me.controls(z).name
Next z

I am NOT talking about Control Arrays.

Thanks in advance.

C

[Nucleus]

Private Sub Command1_Click()
Dim ctl As Control
For Each ctl In Me.Controls
    list1.additem ctl.name 
Next
End Sub

[crptcblade]

For Each Control In Me
  List1.AddItem Control.Name
Next

[Nucleus]

heh heh, good to see someone paying attention

[cvaden]

Oh well....That works great...But.....(sorry)

I actually want to list the controls from a form on a property page in activex control that is on the form.

Get that....?!

C