Dangit more corrections. :|

>o.AddItem("My Own ClAsa", "myclass", "myclass.prg")

myclass is just an empty test class. If you're testing this it needs a PRG named "myclass"
* myclass.prg
DEFINE CLASS MyClass AS SESSION
ENDDEFINE

In the Items_Acess method

>IF NOT vMember > lnLength OR vMember = 0  && VFP collections not zero based

Should be:

IF NOT vMember > lnLength AND NOT vMember = 0

Thanks