【实例说明】
    GIF动画是网页动画的常用格式，它具有短小、灵活等特点。在VB中没有专门播放GIF动画的控件。那么如何实现在VB程序中播放GIF动画呢？本例将通过一个GIF动画实例，介绍实现的方法。运行程序，单击“动画播放”按钮，开始播放GIF动画；单击“动画静止”按钮，GIF动画停止播放。

【编程思路】
    使用WebBrowser控件的Navigate方法调用一个GIF文件，从而达到播放GIF动画的目的，为了不显示WebBrowser控件的滚动条，可以将WebBrowser控件放置在一个容器里，例如：Picture控件、Frame控件等。
    相关的方法：
        WebBrowser的Navigate方法：
        语法：object.Navigate(URL,flags,targetframename,postdata,headers)
        参数：
        URL：指定需要使用的网页文件。
        flags：指定是否将该资源添加到历史列表。
        targetframename：指定目标显示区的名称。
        postdata：指定需要发送到HTTP Post事务处理的数据。
        headers：指定需要发送的HTTP标题。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.单击“工程”菜单中的“部件”选项，在弹出的列表中，选中Microsoft Internet Controls6.0选项，单击“确定”按钮，WebBrowser控件将添加到工具箱中。
    3.在窗体上放置一个Images控件、一个Picture控件、一个WebBrowser控件（按顺序放置），三个CommandButton控件。

    4.源程序  [素材源程序下载]


Private Sub Form_Load()
        '导入图片
        Me.WebBrowser1.Navigate (App.Path & "\vbw.gif")
        Me.Image1.Picture = LoadPicture(App.Path & "\vbw.gif")
End Sub

Private Sub Command1_Click()
        Me.Command1.Enabled = False
        Me.Command2.Enabled = True
        Me.Picture1.Visible = True
        Me.Image1.Visible = False
End Sub

Private Sub Command2_Click()
        Me.Command2.Enabled = False
        Me.Command1.Enabled = True
        Me.Picture1.Visible = False
        Me.Image1.Visible = True
End Sub

Private Sub Command3_Click()
        End
End Sub