GetSetTest

<?xml version="1.0"?>
<component>
    <?component error="true" debug="true"?>
    <registration progid="GetSetTest"/>
    <public>
<property name="value">
    <get/>
    <put/>
</property>
<method name="get_value"/>
<method name="put_value"/>

    </public>
    <script language="VBScript">
    <![CDATA[
dim value
function get_value()
    get_value = value
end function
function put_value(newValue)
    value = newValue
end function
    ]]>
    </script>
</component>