VB做MP3完整代码

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Sub 音乐()
mciSendString "close OpenFile", 0&, 0, 0 '关闭音乐
mciSendString "open """ & App.Path & "\f.i.r. - 11.我最爱的人.mp3 "" alias OpenFile type MPEGVideo", 0&, 0, 0 '指定音乐文件,为mp3格式
mciSendString "play OpenFile", 0&, 0, 0 '播放音乐

End Sub

Private Sub Form_Load()
Call 音乐
End Sub

Private Sub Command1_Click()
On Error GoTo a
CommonDialog1.Filter = "媒体文件|*.mp3;*.mid;*.wav;*.wma"
CommonDialog1.ShowOpen
List1.AddItem CommonDialog1.FileName
a:
End Sub

Private Sub Form_Load()
CommonDialog1.CancelError = True
Timer1.Interval = 1000
End Sub