Dim MO_MAIN As New MyObj.MAIN  
      Dim MO_GV As MyObj.globalvars  
      Set MO_GV = MO_MAIN.GetObject("opvars")  

  DEFINE CLASS MAIN AS Container OLEPUBLIC  
  	Cnn = null  
  	PROCEDURE Init()  
  		LOCAL lcRab  
  		SET SAFETY OFF  
  		This.AddObject("oPVars","GlobalVars")  
  	RETURN  
  	ENDPROC  
  	  
  	PROCEDURE DESTROY()  
  	ENDPROC  
    
  	FUNCTION GetObject(lcOName as String) as Object  
  		LOCAL i, tmp  
  		FOR i =  1  TO This.Objects.Count   
  			IF This.Objects(i).Name = UPPER(lconame) then  
  				RETURN this.Objects(i)  
  			ELSE  
  				tmp=MESSAGEBOX("Нет объекта " + lconame, 1 )  
  				RETURN  0   
  			Endif  
  		NEXT i  
  	ENDPROC  
  ENDDEFINE  
    
  DEFINE CLASS globalvars AS Custom OLEPUBLIC  
  	path_default = "C:\GL\DEVELOP\FOX\"  
    
  	PROCEDURE Init  
  ...  
  	ENDPROC  
  ENDDEFINE

This.AddObject("oPVars","GlobalVars")