【实例说明】
    本例讲解如何运用Image控件制作小动画。运行程序，单击“演示”按钮，动画开始播放；单击“停止”按钮，动画即可停止。

【编程思路】
    在Timer事件过程中，通过循环调用一组不同的图片，便形成了动画效果。运用Image控件来显示图形，Image控件可以显示来自位图、图标或元文件的图形，也可以显示增强的元文件、JPEG或GIF文件。Image控件使用较少的系统资源，重画起来比PictureBox控件要快。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在Form1窗体中放置一个Timer控件（它的Interval属性值设置为50）、一个Image控件（在VB源程序同一级目录下建立5个位图：pic1.bmp、pic2.bmp、pic3.bmp、pic4.bmp、pic5.bmp）、三个Command控件。

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


'初始化变量
Dim i As Integer

'演示动画
Private Sub Command1_Click()
        Me.Timer1.Interval = 50
End Sub

'停止动画
Private Sub Command2_Click()
        Me.Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
        End
End Sub

Private Sub Form_Load()
        i = 0
End Sub

Private Sub Timer1_Timer()
        i = i + 1
        '调用图片
        Me.Image1.Picture = LoadPicture(App.Path & "\pic" & i & ".bmp")
        If i = 5 Then i = 0
End Sub