错!!!
用API...
'在Form1中。。。
Private Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
'多给我:zhs4907****些分哦
Private sub Form_Load()
msgbox" 下一步你就会听到声音衫肆中,按确定吧 ",VBOKONLY,"或山给我分哦"
Beep 2000 , 300
'发出声音雹携频率值为2000,长度为300的蜂鸣器声音
End Sub