【实例说明】
    本例将鼠标的图标制作成为动画图标。当程序正在执行某种操作时，显示动画光标以提示用户。例如，光驱在读取光盘时，鼠标光标为动画光盘，告诉使用者光驱正在读取光盘。

【编程思路】
    使用Mod函数对两个数组作除法返回余数，在Timer事件过程中，始终调用余数数组图片，从而实现了动画光标的效果。下面是Mod函数的用法：
    Mod函数的功能：用来对两个数作除法并且只返回余数，在进行Mod运算或求余数运算时，该运算符将number1用number2除（将浮点数字四舍五入成整数），并把余数作为result的值返回。
    语法：result=number1 Mod number2
    参数：result必需的。任何数值变量；number1必需。任何数值表达式number2必需的。任何数值表达式。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在窗体上放置三个CommandButton控件、一个Timer控件（Interval=500）、Image控件数组（六个）。

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


Dim i As Long

'开始
Private Sub Command1_Click()
        Timer1.Enabled = True
        Me.MousePointer = 99
End Sub

'停止
Private Sub Command2_Click()
        Timer1.Enabled = False
        Me.MousePointer = 0
End Sub

'退出
Private Sub Command3_Click()
        End
End Sub

'设置动画光标
Private Sub Timer1_Timer()
        Me.MouseIcon = Image1(i).Picture
        i = (i + 1) Mod 6
End Sub