VB Forum / COM / August 2005

Hi

I'm trying to introduce an enumerator into a class.

I've introduced a NewEnum routine and set it's procedure attributes to -4.

The collection class wraps a dataset (holding a list of appointmenta) so I'm
populating an Appointment object and returning it via the NewEnum call.

I'm stepping the code and the "For ... Each" is certainly executing as is
the creation of the Appointment. However, when I step off the End Property
of the NewEnum I get an error, RTE 451
"Property let procedure not
defined and property get procedure did not return an object."

What's going on?

Thanks

Simon

PS Alpine --- FWIW, I wondered whether I could get this working without the
need to use the IVBEnumerator stuff of your supercollection class!

Public Property Get NewEnum() As IUnknown
   'This function has a Procedure ID of -4, and is hidden
   Set NewEnum = Appointment
End Property

Private Property Get Appointment() As CAppointment

   Dim l_oAppointment  As CAppointment

   Set l_oAppointment = New CAppointment
   With l_oAppointment
       ....
    End With

   Set Appointment = l_oAppointment

End Property