01.
<html>
02.
<head>
03.
<title>ThaiCreate.Com Tutorial</title>
04.
</head>
05.
<body>
06.
<script language=
"VBScript"
>
07.
08.
Function
AlertMsg
09.
Msgbox(
"Hello ThaiCreate.Com AlertMsg()"
)
10.
End
Function
11.
12.
Sub
txt2_OnMouseMove()
13.
Msgbox(
"Hello ThaiCreate.Com txt2_OnMouseMove()"
)
14.
End
Sub
15.
16.
Sub
btnButton_OnMouseMove()
17.
Msgbox(
"Hello ThaiCreate.Com btnButton_OnMouseMove()"
)
18.
End
Sub
19.
20.
</script>
21.
<form action=
"page.cgi"
method=
"post"
name=
"form1"
>
22.
<input name=
"txt1"
type=
"text"
OnMouseMove=
"VBScript:Call AlertMsg()"
><br>
23.
<input name=
"txt2"
type=
"text"
><br>
24.
<input name=
"btnButton"
type=
"button"
value=
"Submit"
>
25.
</form>
26.
</body>
27.
</html>