'添加 Command1

Option Explicit
Dim songnm$

Private Sub Command1_Click()
   songnm = "c:\test.mp3"
   Call playmusic(songnm)
End Sub

Public Sub playmusic(Snm As String)
   Dim ObjShell As Object
   Set ObjShell = CreateObject("Wscript.Shell")
   ObjShell.Run Snm
   Set ObjShell = Nothing
End Sub