For Each Loops

[Sam Finch]

I'm trying to write a Class Module that will work in a For Each Loop, ie

Dim objMyClass as New clsMyClass

Dim i as Variant

For Each i in objMyClass

    MsgBox i

Next i

It's not a normal collection type thing (Actually I want it to define an elipse and the For each loop to go through every pixel on the border of that ellipse) How can I get this to work without having to have a collection inside my class (Filling a collection with all the points would be a huge waste of memory) I don't mind a bit of V-Table jiggery Pokery, any hints at all would be great.