Sì perché la Sleep blocca il thread corrente e VB6 utilizza un solo thread.

Puoi sostituire ogni Sleep(1000) con le seguenti linee (magari utilizzi una Sub che richiami dove ti serve)

codice:
For i=1 to 50
  Sleep(20)
  DoEvents
Next i