VB Forum / COM / February 2005

Hi

I have a form (MyForm) with an array of usercontrols (MyControl)

I'm implementing a secondary interface (IForm) on the form and wanting to
expose information regarding the usercontrols via that secondary interface
e.g. I've a property Get Count

Class IForm
Public Property Get Count() as Long

I'm implementing the IForm on MyForm and obviously the Count property

Form MyForm
Implements IForm

Private Property Get IForm_Count() as Long
   IForm_Count = MyForm.MyControl.Count
end Property

If, once I've loaded the usercontrols, I introduce a local var

Dim l_oForm as IForm

Set l_oForm = MyForm
debug.print MyForm.MyControl.Count, l_oForm.Count

the former returns the correct number of loaded usercontrols but the
secondary interface returns 0.

The l_oForm is just a mechanism to self-reference so why doesn't it return
the correct number of usercontrols loaded

Thanks

Simon