Beeping every ten seconds

[jake_allen_no_spam]

Hi

I want to loop have the computer beep every 10 seconds. How do I loop
set a delay and beep?

Thanks in advance
Jake

[PBsoft]

> I want to loop have the computer beep every 10 seconds. How do I loop

set a delay and beep?

Use a timer in your form and program the OnTimer form event.

--
PBsoft di Gabriele Bertolucci
www.pbsoft.it
skype: pbsoftsolution

[arthurjr07]

May be this will help!

Private Declare Function Beep Lib "kernel32" (ByVal Btone As Long,
ByVal Blength As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As
Long)
Private Sub Main()
While (1)
Beep 1000, 500
Sleep 10000
Wend

End Sub

[Br]

ar********@gmail.com wrote:

May be this will help!

Private Declare Function Beep Lib "kernel32" (ByVal Btone As Long,
ByVal Blength As Long) As Long
Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As
Long)
Private Sub Main()
While (1)
Beep 1000, 500
Sleep 10000
Wend

End Sub

Assuming you don't want anything else happening in the meantime. If you have
a form open put an event procedure on the Timer event to beep.

Why? Sounds pretty annoying:)

regards,

Br@dley