Content Supported by Sourcelens Consulting 

<HTML>
<HEAD><TITLE>Visual Basic 6 - IObjectSafety Interface Implements Sample Test Page</TITLE></HEAD>
<BODY>

<OBJECT ID="CtlObjSafety" WIDTH=278 HEIGHT=35
 classid="clsid:3F7E9DF0-BE97-11D1-BE6B-00AA00C09191">
    <PARAM NAME="_ExtentX" VALUE="1931">
    <PARAM NAME="_ExtentY" VALUE="1984">
</OBJECT>

<p>VB6 - OCX IObjectSafety TEST PAGE </p>

<p><input type="button" name="btnSafeProp"   width=300 value="Call Property Safe"> </p>
<p><input type="button" name="btnUnSafeProp" width=300 value="Call Property UnSafe"> </p>
<p><input type="button" name="btnSafeFcn"    width=300 value="Call Function ASafeFunctionToCall"></p>
<p><input type="button" name="btnUnSafeFcn"  width=300 value="Call Function AnUnSafeFunction"></p>


<SCRIPT LANGUAGE="VBScript">
<!--
    Sub btnSafeProp_onClick
	CtlObjSafety.Safe=True
    End Sub

    Sub btnUnSafeProp_onClick
	CtlObjSafety.UnSafe=False
    End Sub

    Sub btnSafeFcn_onClick
	CtlObjSafety.ASafeFunctionToCall 0
    End Sub

    Sub btnUnSafeFcn_onClick
	CtlObjSafety.AnUnSafeFunction -1
    End Sub
-->
</SCRIPT>

</BODY>
</HTML>