Visual Basic > Code Snippets

Loop through beeps

Loop through beeps

beeps at different frequencies. Windows XP


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

Private Sub Form_Load() 

'frequency range 1000 to 5000 hz in steps of 50 
Dim intCount As Long 
For intCount = 1000 To 5000 Step 50
'100 milliseconds duration 
Beep intCount, 100 
DoEvents 
Next intCount 
End Sub