VB如何用commondialog控件实行打开一个视频文件的命令？

Private Sub Command1_Click()
CommonDialog1.ShowOpen
WindowsMediaPlayer1.URL = CommonDialog1.FileName
End Sub
添加CommonDialog控件 和 WindowsMediaPlayer 代码如上

Private Sub Command1_Click()
CommonDialog1.ShowOpen
filename=CommonDialog1.FileName
……
……

'根据你选择的播放器控件来编写代码
End Sub