Beep on PC speaker

How to make PC beep on it's PC speaker instead on the sound card.

try:
private sub mybeep
beep
end sub


Special thanks to Lothar "the Great" Haensler. Come back soon, you Guru.

As I said this will go on a sound card if it's installed. I want my beep goes on PC speaker at any case (sound card on or not).

Sorry. As usual, I mismatched the point, and I am afraid I do not know how to do it...

Special thanks to Lothar "the Great" Haensler. Come back soon, you Guru.

If you use the API it should use the speakers

private Declare Function Beep Lib "kernel32" (byval dwFreq as Long, byval dwDuration as Long) as Long
private Sub Command1_Click()
Beep 100, 500
End Sub

Great. Get a rate tomorrow!
Cesare Imperiali

Special thanks to Lothar "the Great" Haensler. Come back soon, you Guru.