Originariamente inviato da oregon
Prova ad inserire una

Application.DoEvents()

dopo la Next
Mah... lo ho fatto e non cambia nulla, neanche mettendolo all' interno del ciclo. Di più: avendo chiuso, riavviato e riscritto ex novo l' applicazione (ci vogliono 10 secondi col copia-incolla) adesso la barra non va oltre la metà, quando è selezionato il tema Windows 7 basic. E la barra continua ad essere verde nonostante la dichiari blu.

Ma, scusa, hai provato??

EDIT: Comunque ho commentato come ha detto abellos:

Threading.Thread.Sleep(5000)

ed in effetti in questo caso la barra arriva fino in fondo con entrambi i Temi! Allora ho sostituito per prova lo Sleep(5000) con:

codice:
        Dim Start As DateTime = Now
        Do
            Application.DoEvents()
        Loop Until (Now - Start).TotalSeconds > 4
e così la barra arriva fino in fondo!!!!

INCREDIBILE!!!!!!!!!! E perché mai lo Sleep(5000) dovrebbe bloccare il cursore della barra a metà corsa a ciclo For-Next ormai concluso, col valore massimo già raggiunto?... e perchè mai lo fa solo con un tema e non con l' altro???
.