FUNCTION IsRegistered LPARAMETERS cDll, cClass LOCAL lRetVal cSaveErr, lError, oDll cSaveErr = ON("ERROR") cString = cDll + "." + cClass ON ERROR lError = .T. oDll = CREATEOBJECT(&cString) ON ERROR &cSaveErr lRetVal NOT lError RETURN lRetVal