Beep the speaker

This will produce beeps.

This takes 2 parameters the first is the frequency and the second is the time the beep will last in milliseconds. In this example 200Hz and 2000 milliseconds

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

Private Sub Form_Load()
Beep 200, 2000
End Sub