ตัวอย่าง
คุณเปิด NotePad แล้ว Copy เอา Code นี้ลงไปแปะ แล้ว Save เป็น Html ได้เลยครับ
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<Script language=vbscript>
const strY="Hello every body"
Dim NumX
NumX=50
Sub Test(str)
Dim strN,V
If NumX < 1 Then NumX=50
strN= String(NumX,".") & str & String(50-NumX,".")
NumX=NumX-1
document.title=strN
V=setTimeout("Test(strY)","500")
End sub