我想在一个VB 工程中加声音 怎么办 简单的也行

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command3_Click()
Dim r As String, l As Long
r = "C:\3D.wav"
l = sndPlaySound(r, 1)
End Sub
在C盘上有一个声音文件3D.wav，如果没有，就用其他声音代替，相应代码也要修改。用这段代码可以播放。

可以使用VB上的OLE控件
弹出对话框，选择音频
弹出播放器，点“编辑”-“选择文件”
即可

用那个媒体播放控件