OptionExplicitDimimgIndexAsInteger'标识当前显示的是第几个图像'卸载窗体PrivateSubcmdClose_Click()UnloadMefrmMain.ShowEndSub'运行或停止演示PrivateSubcmdRun_Click()IfTimer1.Enabled=FalseThenTimer1.Enabled=TruecmdRun.Caption="停止"ElseTimer1.Enabled=False