what OS do you have?
-->found the following in the API-Guide from 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.
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
Dim retval As Long ' return value
retval = Beep(800, 2000) ' ideally, an 800 Hz tone for 2 seconds
End Sub
Main Topics
Browse All Topics





by: d_chenxinPosted on 2001-02-02 at 05:28:09ID: 5805911
sound