VB声音源代码

新建工程，添加timer控件，添加一个按钮控件，双击工程，加入如下代码：
Private Sub Form_Load()
timer1.interval=500
Command1.caption="stop"
End Sub
private sub timer1_timer()
if command1.caption="stop" then
beep
end if
end sub
private sub command1_click()
if command1.caption="stop" then
command1.caption="start"
else
command1.caption="stop"
end if
end sub
'当按下按钮时候，就停止，再按下是又声响了！！

要是你不嫌弃我这个声音太简朴的话就用吧。播一个音阶。建一个Command1，单击按钮即可。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Const Do0 = 264
Const Re = 297
Const Mi = 330
Const Fa = 352
Const Sol = 396
Const La = 440
Const Ti = 495
Const Do1 = 528
Const T4 = 1000
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

Private Sub Command1_Click()
Beep Do0, T4
Beep Re, T4
Beep Mi, T4
Beep Fa, T4
Beep Sol, T4