Beep() not making a sound-how to fix?

[Rich]

Hello,

I want to use the Beep() to alert users about certain
messages but in my workstation I can't get a sound out of
it. But Beep works in VB6. What do I need to do?

Sub...
....
Beep()
For i = 0 to 100: Beep(): Next
MsgBox "testing"
....

No sound. Is it my workstation or do I need to do
something else?

Thanks,
Rich

 

[Abubakar]

well I usually use the Beep api:

Declare Function Beep Lib "kernel32.dll" Alias "Beep" (ByVal freq As
Integer, ByVal duration As Integer) As Boolean

 

[Rich]

I got build errors with this API. May I ask how you
invoke it? I placed a call in a button click event but
got the blue scwigly line.

Sub button1...
Call Beep()
End Sub

 

[Abubakar]

oops I forgot,,, u need:

Imports System.Runtime.InteropServices

 

[Rich]

Thank you. I will give that a try.

-----Original Message-----
oops I forgot,,, u need:

Imports System.Runtime.InteropServices









.