>#Define HKEY_LOCAL_MACHINE -2147483646 && BITSET(0,31)+2 >#Define REG_RUN "Software\Microsoft\Windows NT\CurrentVersion\Time Zones" > >If Version(2)=2 > oReg = Newobject("registry", Home() + "/FFC/Registry.vcx") >Else > oReg = Newobject("registry", "Registry.vcx") >Endif > >lnRegStat = oReg.OpenKey(REG_RUN,HKEY_LOCAL_MACHINE,.T.) >lnRegValue = 0 && by passing a numeric value, it will assume requested is 32-bit binary >Dimension aFoxOptions[1,2] > >m.nErrNum = oReg.EnumKeyValues(@aFoxOptions) >lnret=oReg.enumoptions(@aFoxOptions,REG_RUN,HKEY_LOCAL_MACHINE,.T.) >With This.mycombo2 > .Clear > This.mycombo3.Clear > .AddItem(">> none") > This.mycombo3.AddItem(">> none") > .ListItem(1, 2)="" > This.mycombo3.ListItem(1, 2)="" > For i = 1 To m.nErrNum > lcDisplay="" > lcDisplay2="" > lcIndex="" > lcchave = REG_RUN+"\"+aFoxOptions[i] > lnret = oReg.GetRegKey("Display",@lcDisplay, lcchave, HKEY_LOCAL_MACHINE) > lnret2 = oReg.GetRegKey("Std",@lcDisplay2, lcchave, HKEY_LOCAL_MACHINE) > lcIndex = TRANSFORM(i,"@L 9999999") > lcDisplay2=ALLTRIM(lcDisplay2) > .AddItem(Alltrim(lcDisplay2+" "+lcDisplay)) > .ListItem(.ListCount, 2)=lcIndex > This.mycombo3.AddItem(Alltrim(lcDisplay2+" "+lcDisplay)) > This.mycombo3.ListItem(This.mycombo3.ListCount, 2)=lcIndex > Endfor >Endwith >Sorry to be late but better than never:) Just posted as a reply to previous.