按一个Command,windows media player控件就开始播放

Private Sub Command1_Click()
WindowsMediaPlayer1.URL = App.Path + "\圣诞歌—铃儿响叮当 Flash版-Children.wma"

End Sub

Private Sub Command1_Click()
Shell "C:\Program Files\Windows Media Player\wmplayer.exe d:\我的文档\My Music\beyond\现代舞台.wma", 1
End Sub