最简单的方法就是使用WindowsMediaPlayer控件。。。在工程----部件中找到WindowsMediaPlayer，然后打上勾，确定，接着将WindowsMediaPlayer控件添加到窗体上，最后在代码中这样：
创新互联为客户提供专业的做网站、成都做网站、程序、域名、空间一条龙服务，提供基于WEB的系统开发. 服务项目涵盖了网页设计、网站程序开发、WEB系统开发、微信二次开发、手机网站制作设计等网站方面业务。
private
sub
form_load()
WindowsMediaPlayer1.URL
=
"E:\FavoriteVideo\123.MP4"
end
sub
这样，当程序运行时，会自动播放这个视频。当然也可以把视频文件放到本程序相同的文件夹下:
把路径改为
app.path
"\123.mp4"
工程→控件→windowsmediaplayer
引用后左边控件列表中会多出一个东西，点它，在屏幕上画个框，mediaplayer就到屏幕上啦
接下来，制作文件打开工具
放置
drive1
dir1
file1
三个控件。把file1的pattern属性设为*.wma
然后写入如下代码
private
sub
dir1_change()
file1.path
=
dir1.path
end
sub
private
sub
drive1_change()
dir1.path
=
drive1.drive
end
sub
private
sub
file1_click()
windowsmediaplayer1.url
=
file1.path
"\"
file1.filename
end
sub
url是文件的路径，你也可以抛弃那三个控件，直接指定一个文件
至于视频嘛，也一样，可以放一个command1
caption属性设为"视频"
private
sub
command1_click()
file1.pattern="*.avi"
end
sub
为了能改回来，放一个command2
caption属性设为"音频"
private
sub
command2_click()
file1.pattern="*.wma"
end
sub
附加：全屏法：
放一个command3
caption属性设为"全屏"
private
sub
command3_click()
windowsmediaplayer1.fullscreen
end
sub
“工具箱”中单击右键，选择“选择项”菜单，打开“选择工具箱项”窗口，选择“COM组件”标签，在列表中找到并勾选“Windows Media Player”组件，单击“确定”按钮。将该组件添加到指定的工具箱选项卡中，然后在工具箱里面找 Windows Media Player 控件，拉到form里面，拉出来的控件就是AxWindowsMediaPlayer
用VB播放FLASH动画
Flash是一种矢量格式的动画文件， 可以包含动画，声音，超文本链接，而文件的体积却很小。在网页上使用Flash可以作出很漂亮的全屏动画和动态菜单条。
你想在VB程序里作出类似的效果吗?在VB中使用Flash4自带的Swflash.ocx控件就可以了。方法如下：
首先，打开VB5，新建一个工程， 在工具箱上单击右键，选择部件，在部件窗口的控件列表中选择Shockwave flash，然后确定，Flash控件就被加到工具箱上。
然后将Flash控件放到窗体上，并调整至适当的大小，然后在属性窗口里设置movie属性为Flash动画文件的路径(如:c:\demo.swf)，设置scale model属性为2，quality 属性为 1。(参见附表)
双击窗体，在form_load( )过程里加入：
shockwaveflash1.playing=true
按F5就可以看到播放的Flash动画了。(注意:编译以后的可执行文件不包含动画文件)如果动画里加上动态按钮，配合鼠标位置判断，就可以作成动态工具条或动态菜单了。
Ctrl T
在弹出的对话框中
控件——选中“Windows Media Player”项 应用
在工具栏新出现一个控件图标
新建此控件
使用如下：
＝＝＝＝＝＝＝＝＝＝WindowsMediaPlayer的常用属性和方法＝＝＝＝＝＝＝＝＝＝＝
[基本属性]
URL:string 可以指定媒体位置
enableContextMenu:Boolean 显示/不显示播放位置的右键菜单
fullScreen:boolean 全屏显示
stretchToFit:boolean 非全屏状态时是否伸展到最佳大小
uMode:string 播放器的模式，full：有下面的控制条; none：只有播放部份没有控制条
playState:integer 当前控件状态，下面是三种基本状态：
3：正在播放
2：暂停
1：已停止
状态变化时会触发OnStatusChange事件
[controls]
可通过WindowsMediaPlayer.controls对播放器进行控制并取得相关的一些信息：
controls.play; 播放
controls.stop; 停止
controls.pause; 暂停
controls.currentPosition：Double 当前播放进度
controls.currentPositionString：string 时间格式的字符串 "0:32"
[currentMedia]
可以通过WindowsMediaPlayer.currentMedia取得当前媒体的信息
currentMedia.duration Double 总长度
currentMedia.durationString 时间格式的字符串 "4:34"
[settings]
可以通过WindowsMediaPlayer.settings对播放器进行设置，包括音量和声道等。
settings.volume:integer 音量 （0-100）
settings.balance:integer 声道，通过它应该可以进行立体声、左声道、右声道的控制。
使用Microsoft.DirectX.AudioVideoPlayback组件。
首先，需要安装DirectX SDK.
DirectX 9.0c Redistributable
DirectX 9.0 SDK Update
然后将对Microsoft.DirectX.AudioVideoPlayback.dll的引用添加到你的项目。
使用这段代码在Panel控件上放置一个视频文件：
ImportsMicrosoft.DirectX.AudioVideoPlayback
Public Class Form1
Private Sub Form1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs) Handles MyBase.Load
Dim videoFile As Audio =New Audio("D:\Video1.avi")
videoFile.Owner = Panel1
videoFile.Play()
EndSub
EndClass
'以前收集的资料，没用过,你自己整整
2)使用Windows Media Player控件也能播放视频。
右击工具箱-选项- COM组件-定位并添加“Windows Media Player” ActiveX控件
然后“Windows Media Player”控件将会出现在工具箱上。将它拖动到窗体上来生产一个AxWindowsMediaPlayer1对象,并为URL属性指定音频或者视频文件。
AxWindowsMediaPlayer1.URL = "D:\VideoOrAudio.wmv"
Media Player控件默认将会自动播放文件。
