|
|
|
| Title | Make a beep with a non-standard frequency and duration |
|---|
| Keywords | beep, tone, sound, frequency |
|---|
| Categories | API, Multimedia |
|---|
|
|
|
Use the Beep API function, passing it the frequency and duration you want.
|
|
Private Declare Function APIBeep Lib "kernel32" Alias _
"Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) _
As Long
Private Sub Command1_Click()
Dim frequency As Long
frequency = CLng(txtFrequency.Text)
APIBeep frequency, 500
End Sub
|
| |
 |
| |
|
