#DEFINE HKEY_LOCAL_USER -2147483647 loReg = NEWOBJECT("Registry", HOME() + "ffc\registry") ? loReg.iskey('Software\Microsoft\Office\10.0\Outlook\Categories',HKEY_LOCAL_USER) IF loReg.OpenKey('Software\Microsoft\Office\10.0\Outlook\Categories',HKEY_LOCAL_USER) = 0 lcUser = SPACE(100) ? loReg.GetKeyValue('MasterList',&lcUser) ENDIF