' Listing 1. The MyComp.Hello Object

<?xml version="1.0"?>
<component>

<registration progid="MyComp.Hello">
</registration>

' BEGIN CALLOUT A
<public>
	<method name="Say">
		<parameter name="text" />
	</method>
	<property name="Title">
		<get/>
		<put/>
	</property>
</public>
' END CALLOUT A

' BEGIN CALLOUT B
<script language="VBScript">
<![CDATA[

Dim m_Title
m_Title = ""

Function Say(text)
	MsgBox text,, m_Title
End Function

Function get_Title()
	get_Title = m_Title
End Function

Function put_Title(newTitle)
	m_Title = newTitle
End Function

]]>
</script>
' END CALLOUT B