想在以下代码读取到指定文件夹内的视频后 用鼠标点击某个视频名字后就可以在WindowsMediaPlayer1中播放，求鼠标点击事件代码！
Private Sub Form_Load()
File1.Path = "d:\360" '设置路径
File1.Pattern = "*.mp4" '匹配 mp4 文件
 
For i = 0 To File1.ListCount
    '处理文件 File1.list(i) 为文件名
Next
End Sub

谢谢2楼的老师  我想要实现的是用鼠标点击File1.Pattern读取的列表文件  然后就播放！继续等老师解答！

请问楼上得几位老师为什么再播放的文件夹里面 必须要有1个 1.wmv文件  否则其它的wmv文件无法播放呢？
Private Sub File1_Click()
WindowsMediaPlayer1.URL = "360/1.wmv" 'File1.FileName
WindowsMediaPlayer1.Controls.play
WindowsMediaPlayer1.Controls.pause
End Sub

Private Sub Form_Load()
File1.Path = "360" '设置路径
File1.Pattern = "*.wmv" '匹配 wmv 文件

For i = 0 To File1.ListCount
    '处理文件 File1.list(i) 为文件名
Next
End Sub