inserisci un modulo
codice:
sub aggiorna_immagine(percent as integer)
   select case percent
      case < 10
         'carica l'immagine che vuoi
      case < 20
      case < 30
      case else
   end select
end sub