VB如何作出嗶嗶聲

Question

VB 程式不開喇叭, 而用電腦的笛聲.如何作出音效(嗶嗶聲音). 謝謝大家指點.

Answer 1

'版本VB6.0
Private Declare Sub Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long)
Private Sub Form_Activate()
Dim I As Long
For I = 0 To 5000 Step 100
　　Beep I, 50
　　Caption = I
　　DoEvents
Next
End Sub