loTherm = NewObject("_THERMOMETER","_THERM.VCX","","Output All Pages") loTherm.Show() loTherm.iBasis = RecCount("loadedhtml") Do While Not Eof("loadedhtml") loTherm.Update(RecNo("loadedhtml"),"Outputting page: "+allt(loadedhtml.directory)+allt(loadedhtml.file)) **** do stuff EndIf Skip in LoadedHtml EndDo loTherm.Complete()