'<!-- Copyright (c) 2002- Saora Inc., Japan. All rights reserved.-->
'<!-- Proprietory implementation by Saora Inc. V01.03 2002/04/26-->
'<!-- No part may be copied or reused without written permission from Saora Inc., Japan -->

varKPTInitialize = False
varKPTWebSaveObjectExist = False

Function vbInitilaize()
	On Error Resume Next
	Dim oObj
	Set oObj =  CreateObject("Keepoint.KeepThis")
	if (Err=0) 	Then 
		varKPTWebSaveObjectExist = True
	End If
	Set oObj = Nothing
	varKPTInitialize = True
End Function