<html>
<head>
<title>Catch the button</title>
<HTA:APPLICATION
APPLICATIONNAME="Catch the button"
ID="CatchTheButton"
VERSION="1.0"/>
</head>
<script language="VBScript">
Sub Window_Onload
Self.window.resizeTo 1200,600
MoveTheButton
End Sub
Sub MoveTheButton
Randomize
Dim x
Dim y
x=Int (1000 * (Rnd) + 1)
y=Int (500 * (Rnd) + 20)
chasee.style.top=y
chasee.style.left=x
End Sub
Sub caughtme
score.innertext=score.innertext+1
MsgBox "Dang you caught me"
MoveTheButton
End Sub
Sub Cheat
score.innertext=score.innertext-3