Make your own free website on Tripod.com

AllApi.net

[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
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    ' 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 KPDTeam@Allapi.net with comments about this web site.
This site is located at
http://www.Allapi.net/