Private Sub Run—Step(bz As Integer) Select Case bz Case 1 Timer—step.Interval=20000 ′这一步停留的时间 Timer—step.Enabled=True (本步的教学过程控制程序) Case 2 …… Case 3 …… End Select End sub Private Sub Timer—step.Timer() ′计时器事件 StepCount=StepCount＋1 Run—Step StepCount ′调用主程序 End Sub 这样，计时器Timer—Step每触发一次，将使变量StepCount的值增1，在调用过程Run—Step时进入下一步学习，而Timer—Step的触发时间可在上一步的程序中设定，具体的Interval值需要根据实际情况确定。 如要实现“自动/手动”切换，只需在窗体中适当位置放上一按钮，并在程序中定义一逻辑变量(如auto，其值为True时自动运行，为False时手动操作)，将上面的Timer—Step中事件修改如下：
Private Sub Timer—step.Timer() If auto then ′变量值为真时自动执行，否则计时器失效 StepCount=StepCount＋1 Run—Step StepCount Else Timer—Step.Enable=False EndIf End Sub 这样，只要在该按钮的Click事件中执行语句：auto=Notauto，鼠标点击时，将对应的逻辑变量值取反，即可在“自动/手动”间切换。
