[Crystal]

Родным пользуюсь потому, что хелп нужен.

Global ta

Global Fun

Function Timer()

If ta < MilliSecs() Then 
ta = MilliSecs() + 200.
Fun=1
Else
Fun=0
End If
End Function

If MouseDown(1) And Fun=1 Then s_construct.s(User,pricel)