LOCAL x, lPrevLS lPrevLS = thisform.LockScreen thisform.LockScreen = .t. FOR x=this.PageCount TO 1 STEP -1 this.ActivePage=x ENDFOR thisform.LockScreen = lPrevLS