How to Make a beep with a non-standard frequency and duration
Posted on January 4, 2009
1 2 3 4 5 6 7 8 9 10 | 'System & API - How to Make a beep with a non-standard frequency and duration 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 |