function isActiveXObj(obj)
    on error resume next
    isActiveXObj = IsObject(CreateObject(obj))
end function