Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Private Sub Form_Load() playsnd 440, 100 playsnd 494, 100 playsnd 554, 100 playsnd 622, 100 playsnd 698, 100 playsnd 784, 100 playsnd 880, 100 End Sub Function playsnd(ByVal x As Long, y As Long) Beep x, y * 3 DoEvents End Function
|