Dim laylaFunctionTargetUrl
Dim ErrorMessage
Dim objSrvHTTP
Dim objRegistry

Const HKEY_CLASSES_ROOT = &H80000000
Const HKEY_CURRENT_USER = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002

REM ***********************************************************
REM laylaClass : インターネット用汎用関数セット
REM ***********************************************************
Function laylaGetVersion()

	laylaGetVersion = "2007.04.01"

End Function