'在PictureBox控件中显示GIF动画(图片),凡有句柄hwnd的窗体控件均可以
'在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1
Option Explicit
'调用运动图像播放类型库Quartz.dll,在c:/windows/system32目录下
Private pMC As FilgraphManager '定义pMC为FilgraphManager对象
Private pVW As IVideoWindow '定义pVW为IVideoWindow对象
'播放GIF动画
Private Sub Command1_Click()
'终止播放
On Error Resume Next
Set pMC = New FilgraphManager
pMC.Stop
pMC.RenderFile ""
'加载GIF文件
On Error GoTo Lhandle
pMC.RenderFile "E:/offline.gif" '加载GIF动画(图片),并在PictureBox中播放
On Error Resume Next
Set pVW = pMC
pVW.WindowStyle = CLng(&H6000000)