In your main prg write following line

PVariable = 0

Write following line in form's mouse move, init and keypress event

PVariable=0

Drop a timer on form and paste following codes in timer event

PVariable=PVariable+1
If PVariable>15000
release thisform
Endif


Hope this will help