PROCEDURE Paint WITH ThisForm.oWB.Object.Document.Body IF LOWER(.Scroll) <> "no" .Scroll = "no" ENDIF ENDWITH ENDPROC