如何用vb制作视频播放器

自己看，另外还有解码器。Video
.....\AMOVIE.oca
.....\Amovie.ocx
.....\EQPro.oca
.....\EQPro.ocx
.....\frmfullscreen.frm
.....\FrmVideo.frm
.....\FrmVideo.frm.bak
.....\FrmVideo.frx
.....\FrmVideo.log
.....\MSSCCPRJ.SCC
.....\Video.vbp
.....\Video.vbw
椭圆形多媒体播放器源代码

........................\play1.frm
........................\play1.frx
........................\play1.vbp
........................\play1.vbw
........................\安装必读.txt
........................\说明.htm
http://v.youku.com/v_show/id_XMjEzOTU1Nzcy.html

视频：添加一个WindowsMediaPlayer控件，语法：WindowsMediaPlayer1.URL="视频文件路径"
flash：添加一个shodkwaveflash控件，语法：
ShockwaveFlash1.Movie="flash文件路径"
可以用commondialog打开本地文件(commondialog.showopen)：
文件路径用commondialog.filename