Add(VBJScript,1123522,161,42)
{
 WorkPoints=#6:doTest|
 Script=#18:Sub doWork(dt,idx)|13:  MsgBox dt+1|7:End Sub|
}
Add(Button,10461487,98,42)
{
 Left=95
 Top=40
 link(onClick,1123522:doTest,[])
}