per il messaggio di attesa è banal la soluzione:
codice:
  On Error Resume Next
  MyLabel.Caption="Caricamento in Corso..."
  DoEvents
  buffer = Inet1.OpenURL(webUrl, icByteArray)
  Kill sFile
  FileNR = FreeFile
  Open sFile For Binary As FileNR
  Put FileNR, , buffer
  Close FileNR
  MyLabel.Caption="Caricamento Completato"
  DoEvents