Hi Kamil,

Try this code:

DECLARE Sleep IN kernel32 INTEGER dwMilliseconds
DECLARE INTEGER Beep IN kernel32 INTEGER dwFreq, INTEGER dwDur

= Beep1(100)
= Beep1(300)
= Beep1(200)
= Beep1(300)
= Beep1(400)
= Beep1(100)
= Beep1(300)
= Beep1(500)

PROCEDURE  Beep1 (lnFreq)
	= Beep(lnFreq, 90)
	= Sleep (20)

Form control has KeyPress and Click events, otherwise INKEY function can help.

73! former UK5NAF, UB5NVA