1 '---------------------------------------------------
2 ' VBScript Ver5
\82Ì
\83N
\83\89\83X
\82ð
\97\98\97p
\82µ
\82½
3 '
\83C
\83x
\83\93\83g
\82Ì
\83n
\83\93\83h
\83\8b
5 '---------------------------------------------------
6 '
\83N
\83\89\83X
\82ð
\90¶
\90¬
\82·
\82é
8 set obj = new mainframe
10 '----------------------------------------------------
11 '
\83\81\83C
\83\93\83t
\83\8c\81[
\83\80\82Ì
\90¶
\90¬
\82Æ
\83C
\83x
\83\93\83g
\82ð
\82¤
\82¯
\82é
\83N
\83\89\83X
\82Ì
\92è
\8b`
15 public sub class_initialize
16 set instance = createobject("seraphyscripttools.instance")
17 with instance.mainframe
25 with instance.mainframe
37 public sub OnMouseMove
39 with instance.mainframe