Close #1
For i=1 To 47
SOUND fq(i),delay(i)*2
Next I
Closesound()
End Sub
Sub SOUND(frequency&,ByVal duration%)
frequency&=frequency& * 65335
x=SetVoiceSound(1,frequency&,duration%)
y=StartSound()
End Sub
2、利用OLE控制产生
VB中的OLE(对象链接与嵌入)控制也可以用来播放声音文件，比如*.wav，*.mid等等。我们可以将自己编写的歌曲存为*.wav，或*.mid文件，再利用OLE来放出。利用OLE来发出声音有两种不同的方式：一是在设计阶段就把装了声音文件的OLE对象建立好，以后只要在他上面双击，就能够发出声音；二是完全由程序来控制。
在设计阶段建立OLE对象的方法是：首先在窗体上设置OLE对象，这时会出现Insert Object对话框，然后选好Sound对象，接着设置Create from File复选钮，再在File：输入框里输入声音文件，或利用对话框中的Browse按钮去寻找，最后设置link单选框即可，以后只要在OLE上双击就可以听到声音了。
由程序控制声音的播放，可在窗体上设置一个空的OLE对象，然后再写一段下面的程序就可以了:
Sub Form_click()
Olel_class="soundRec"
Olel.SourceDoc="声音文件名及其路径"
Olel.Verb=0
Olel.Action=7
程序运行后，只要单击窗体就可以听到声音了。
