【实例说明】
    在多媒体软件当中，如果让相关图片按顺序循环滚动显示，多媒体程序一定增色不少。本例运用一个简单的方法实现水平滚动图片的动画效果。运行程序，图片开始按顺序水平循环滚动。

【编程思路】
    在Timer事件过程中，使一组图片循环的向左移动，从而形成了滚动图片效果，其中运用了IIf函数，使程序简单化，并减少了代码量，下面是IIf的功能、语法及参数：
    IIf函数功能：根据表达式的值，来返回两部分中的其中一个。
    语法：IIf(expr,truepart,falsepart)
    参数：expr必要参数。用来判断真伪的表达式；truepart必要参数。如果expr为True，则返回这部分的值或表达式；falsepart必要参数。如果expr为False，则返回这部分的值或表达式。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在Form1窗体中放置一个Timer控件（它的Interval属性值设置为100），五个Image数组（0-4）控件

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


'变量初始化
Dim i As Integer
Dim myleft As Integer
Dim mywidth As Integer

Private Sub Form_Load()
        i = 0
        Me.Width = Me.Image1(0).Width * 7
        myLeft=Me.Image1(0).Width * 4
        myWidth=Me.Image1(0).Width * 8
End Sub

'流动图片
Private Sub Timer1_Timer()
        '用IIf函数判断全部图片的位置
        For i = 0 To 4
                Me.Image1(i).Left = IIf(Me.Image1(i).Left < -myLeft, myWidth, Me.Image1(i).Left - 100)
        Next i
End Sub