The following example sets all the steps in the current task to 殿ctive, so that no steps are skipped the next time the task is executed.
Sub Main
Dim iTotalSteps As Integer
iTotalSteps = CurrentTask2.StepCount
For iIndex = 0 To iTotalSteps
CurrentTask2.SetStepStatus (iTotalSteps, 1)
Next iIndex
End Sub