给你个 很简单的
为成华等地区用户提供了全套网页设计制作服务，及成华网站建设行业解决方案。主营业务为网站建设、做网站、成华网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！
Public Class Form1
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
‘ 声明函数 mciexcute 加入库 winmm.all
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call mciExecute("play E:\music\music\单身情歌.wma ")
'在 formload过程中 调用函数 mciexcute 里面 是 文件 路径
End Sub
End Class
My.Computer.Audio.Play("SoundFile.wav")
SoundFile.wav是你要播放的声音文件的路径
1.定义变量记录键是否被按下，按下的累计时间
Dim 按下A键 As Boolean
Dim 按下A键时间 As Integer
2.添加一个TextBox1用于接收键盘事件，或者直接用窗体的键盘事件(确保KeyPreview为True)
在KeyDown事件中添加如下代码：
If e.Keycode = keys.A Then 按下A键 = True
在KeyUp事件中添加如下代码：
If e.Keycode = keys.A Then 按下A键 = False
3.添加一个Timer1控件，调整Timer1的Interval来决定按键频率，记得要把Timer1.Enable开启
在Tick事件中添加如下代码：
If 按下A键 = True
按下A键时间+=1
Call 音量设置(按下A键时间 * 10)
End If
PS: 按下的秒数 = 按下A键时间*Timer1.Interval / 1000
一、直接内存播放，要求声音文件要相当小，作为按键音之类使用。需要将音乐文件做成res资源文件：
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long
Private Sub Command2_Click()
Dim B() As Byte
B = LoadResData(101, "CUSTOM")
sndPlaySound B(0), H4 '播放内存里的声音，H8 ' 循环播放，H1 ' 异步播放
End Sub
资源文件制作方法：
外接程序-外接程序管理器-找到资源编辑器-勾选“在启动中加载”“加载/卸载”-确定
工具-资源编辑器-添加自定义资源（在资源编辑器工具栏上，鼠标移上去会提示）-重复，把所有音乐文件添加进去-保存
二、
Private Declare Function sndPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Form_load()
Dim SoundFile As String, Result As Long
SoundFile = "D:\Backup\我的文档\FFOutput\两小无猜.wav" '此处为路径
Result = sndPlaySound(SoundFile, 1)
End Sub
以上方法都只能播放wav格式的文件，你需要将文件转换为wav格式。
三、
下面的办法允许播放更多格式，但是你的程序会因此而变大好多：
用控件播放音乐文件
只需要将WindowsMediaPlayer1.URL赋相应的值即可。
例如要在窗体加载时播放music.mp3这个文件，只要这样写代码。
Private Sub Form_Load()
WindowsMediaPlayer1.URL = VB.App.Path "\music.mp3"
End Sub
其中加载WindowsMediaPlayer 控件的方法：
“工程”“部件”，在弹出的菜单中，拉动滚动条找到WindowsMediaPlayer，将其前面的复选框选中，点击“确定”即可，然后你就会在你的的控件栏中看到WindowsMediaPlayer控件了，像用一般控件一样画一个。
以上所有方法vb6.0 windowsxp下测试通过
