...
$Button1 = $Form.Controls.Button("OK", 276, 160, 105, 20)
$Button1.Anchor = 10
$Button1.OnClick = "OK"
...
$Timer1 = $System.Timer()
$Timer1.Interval = 1000 *60 * 2 ;milliseconds * seconds * minutes
$Timer1.OnTick = "OK()"
...
...
subform.show
$Timer1.Start()
...
Function OK
$Timer1.Stop()
...
endfunction
