Thanks for your help on this, I have decided to use a similar model to the one below.

Thanks
Kev

>>Yes, I was thinking of having a class that could return references to it's own instances of the required classes.
>
>In VFP8 it seems simple.
>
>

>public goFactory
>goFactory = CREATEOBJECT("cusFactory")
>
>DEFINE CLASS cusFactory as Custom
>	ADD OBJECT ioSingleton as "collection"
>	FUNCTION new(tcClass,tcLib)
>		WITH THIS
>			IF .ioSingleton.GetKey(tcClass) = 0
>				DEBUGOUT "create object"
>				.ioSingleton.Add(NEWOBJECT(tcClass,tcLib),tcClass)
>			ENDIF
>			DEBUGOUT "return reference"
>			RETURN .ioSingleton(tcClass)
>		ENDWITH
>	ENDFUNC
>ENDDEFINE
>

>
>You could hang the factory off _SCREEN, or your own goApp object, however you manage such things.