SET CLASSLIB TO commctrl.vcx ADDITIVE oForm = CREATEOBJECT("form") WITH oForm .ADDOBJECT( "oProgBar", "progressbar") .oProgBar.VISIBLE = .T. .SHOW() CLEAR WITH .oProgBar .SetRange( 0, 100) FOR m.i = 1 TO 10 .StepIt() && default step increment is 10 WAIT '' TIMEOUT .2 ENDFOR &&* m.i = 1 TO 10 ENDWITH ENDWITHIf you're interested in a ready-to-use progress bar based on this class, you can download my progbar.zip from the UT files section (file ID 737). It's based on Alexander's class library, which is used with his permission.