求教：如何调用媒体播放器来打开MP3？

Question

各位大侠：
           请教如何使用VB调用API函数来运行媒体播放器或者其他媒体播放工具播放mp3文件？请高手给出实现代码？谢谢！

Answer 1

shell "媒体播放器的路径，mp3文件路径"

Answer 2

Option ExplicitPrivate Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Command1_Click()
    ShellExecute Me.hWnd, "play", "d:\mc\txt\123.mp3", vbNullString, "c:\", 0&
End Sub