Inserisci una chiamata a

DoEvents

all'interno del ciclo. E dovrebbe migliorare.

P.S. VB6 si tratta nella sezione VB