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
** 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 EnddefineI 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.