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