'
'       This example displays the properties of the Active Project
'
set oProj = ActiveProject
for each oProp in oProj.Properties
        logmessage oProp.Name
next