Hi Greg

Thank for the code.

I guess I should ask my question in it is exact situation.

I am building my frame, in which i am trying to use something like

Numbers = CreateObject("Numbers")
Numbers.Convert.HexToDec("FFF")
SQL  = CreateObject("MSSQL")
SQL.SQL2000.Server="Myserver"
SQL.SQL2005.Connection.Authenticate = "Local"

The only problem with your code above, since I have to many classes saved in separate prgs, and depends on your code
which I already tried, imagine this.

** Frame_Initialize.prg
&& create all the classes and add class to each other 

** common.prg
Public oCommon && <-- Should I public this variable?
oCommon = CreateObject("Common")
Define Class common as Session OLEPublic
    **** PEMs
Enddefine

** class1.prg
Define Class Class_1 as Session OLEPublic
    **** PEMs
    Procedure Init
    AddProperty(oCommon,"common")
    Endpr
Enddefine

** class2.prg
Define Class Class_2 as Session OLEPublic
    **** PEMs
    Procedure Init
    AddProperty(oCommon,"common")
    Endpr
Enddefine

** class3.prg
Define Class Class_3 as Session OLEPublic
    **** PEMs
    Procedure Init
    AddProperty(oCommon,"common")
    Endpr
Enddefine

I know I can get the Variable that create class variable by AInstance() But I could figure out YET how to use it in my case.

TIA