how does:
--------------------------------------------------------------------------
VB Code:
  1. private sub Web_ProgressChange(Byval Progress as long, Byval ProgressMax as long)

  2.  
  3. end sub
--------------------------------------------------------------------------

work?