oh, i see the function is needed.

--


Gary


"Jim Thomlinson" wrote in message
...
Sorry I should have mentioned that you can also change the duration of the
sound...

Sub TestBeep2()
Beep 500, 100
Beep 1000, 200
Beep 5000, 100
Beep 2000, 300
Beep 200, 700
Beep 500, 200
Beep 1000, 400
Beep 5000, 700
Beep 2000, 200
Beep 200, 100
End Sub

--
HTH...

Jim Thomlinson


"Jim Thomlinson" wrote:

You can change the frequency of the beep if you impliment the API...
Something like this in a standard code module...

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long

Sub TestBeep()
Beep 500, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 1000, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 5000, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 2000, 100
Application.Wait (Now + TimeSerial(0, 0, 1))
Beep 200, 100
End Sub

--
HTH...

Jim Thomlinson


"Antonio" wrote:

I know how to play a .wav file.

I know that the Beep function does not allow to play different sounds.

Is there an easy way to emit two or three (or several) different sounds
without resorting to playing a wav file?