How To Iterate Controls on a Form from a Property Page

MORE INFORMATION

1. Start Microsoft Visual Basic. Load an ActiveX control project, or create a new one.
2. Add the following code in the control's code window:

         Friend Function FormControls() As Object
             Set FormControls = ParentControls
             'Returns the collection of controls on the parent form.
         End Function
   						

3. From the Project menu, click Add Property Page.
4. Add the following code in the Property Page's code window:

         Private Sub PropertyPage_SelectionChanged()
             Dim UC As UserControl1  'Make sure that UC is typed explicitly as
                                     'the user-defined control you are working
                                     'with. To use Friend functions, you must
                                     'early-bind your variables.
             Dim Ctrl As Object
             Set UC = SelectedControls(0)  'Return selected control.
             For Each Ctrl In UC.FormControls  'Iterate through the use of
                                               'UC's friend function.
             Debug.Print Ctrl.Name  'Output the name of each control.
             Next Ctrl
         End Sub
   						

5. Switch to the UserControl1 object. On the properties list, click Property Pages. Turn on the option for PropertyPage1.
   
   Now when you use this custom ActiveX control on a form, you can choose 'Custom' from the properties list to bring up the Property Page.