新手请教一个小问题！谢谢

请问有没有使音响发音的语句,就像这个使主板发音：

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 


一样 可以这样“playsnd 880, 100 ” 自己编奏