Make your own free website on

[an error occurred while processing this directive]
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
    'KPD-Team 1999
    ' Attempt to play a note at 800 Hz for 2 seconds. This will only
    ' behave this way on Windows NT/2000; users of Windows 95/98 will only hear the
    ' default sound.
    Dim retval As Long ' return value
    retval = Beep(800, 2000) ' ideally, an 800 Hz tone for 2 seconds
End Sub

Copyright © 1998-2000, The KPD-Team.
Send mail to with comments about this web site.
This site is located at