Sub Callback() 
    '--- Synchronize the upload control and the progress indicator:
    document.all("AXFFileProgress").XFRequestStream = opener.document.all("AXFFile").XFRequestStream

    '--- Initiate the progress indicator.
    document.all("AXFFileProgress").ShowProgress

    '--- Start the file transfer. 
    opener.document.all("AXFFile").Start 
    
    '--- Close the progress window when the transfer is complete. 
    window.close 
End Sub