Function Progress( $ProgressText, optional $Step )
If $Step=""
$Step=$progressstep
EndIf
$ProgressTextBox.Text = $ProgressText
If $ProgressBar.Value + $Step < 101
$ProgressBar.Value = $ProgressBar.Value+$Step
If $DebugFlag = $TRUE
Sleep $sleeptime
EndIf
Else
$ProgressBar.Value=100
EndIf
$=Execute($Form.DoEvents())
EndFunction
