dim stepFlag as integer=1
dim endStep as integer=10
do while true
select case stepFlag
case 1
dim frm1 as new StepForm1
if frm1.showdialog=dialogresult.ok
stepFlag+=1
loop
else
exit do
end if
case 2
dim frm2 as new StepForm2
dim sr as dialogresult=frm2.showdialot
if sr=dialogresult.ok
stepFlag+=1
loop
elseif sr=dialogresult.no
stepFlag-=1
loop
else
exit do
end do
case 3
.
.
end select
end do
if stepFlag < endStep
messagebox.show("未成功执行")
else
messagebox.show("已成功执行")
end if