Why does VBA "StatusBar" lag behind it's calls

[Mackeral]

I run this code to test how Status Bar works:

     For I = 1 To 50
        For J = 1 To 500
            K = 4 + 4
        Next J
        Call Status_Bar("test", I, 50)
    Next I

This is the Status_Bar Code:

    Call Status_Bar("Test") ' Initializes.
    Stop
    For I = 1 To 50
        For J = 1 To 100
            K = 4 + 4
        Next J
        
        Call Status_Bar("Test", I, 50)
    Next I
    Stop
    Call Status_Bar("")  ' - To close

The Status Bar updates very slowly, and when I hit Esc then the whole of the Status Bar appears.
Shouldn't it go as fast as it's called?

 

[Jeffrey Mahoney]

You need to insert some DoEvents in the code so the background can catch up. For large jobs, I would test the iteration and update the status bar every 100 or so.

 

[Jeffrey Mahoney]

Screen updates are lower priority than iterations and calculations.

 

[Jeffrey Mahoney]

Dim L as long
For I = 1 To 50
        For J = 1 To 500
            K = 4 + 4
        Next J
       
        if I - L > 10 then
          Call Status_Bar("test", I, 50)
          DoEvents
          L = I
        End if
    Next I