【CBM666 的最简单歌曲播放】

 

'添加 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