Display Status on Form

[John Cello]

Got a database that does some back end processing. Client wants a screen to
show what it is doing. (Don't ask me why) Trying the following code,
essentially just trying to get a 4 second pause between the message changing
for testing. When I run it I get the hourglass, no change in the form until
the very end, where it displays the "Sending ALL e-mail group..." message.
What am I doing wrong?

Function TheCA()
On Error GoTo TheCA_Err
'Step 1 - Imports data from MySQL Server to
local---------------------------------------
Forms!frmTest!lblStatus.Caption = "Importing Data From Web"
sSleep 4000


'Step 2 - Transfers records to local
table------------------------------------------------
Forms!frmTest!lblStatus.Caption = "Transferring data to local tables..."
sSleep 4000

'Sets New flag on web database to No
Forms!frmTest!lblStatus.Caption = "Clearing New flag on MySQL server..."
sSleep 4000

'Step 3 - Sends Compliment Autoreply to
customers-------------------------------------
Forms!frmTest!lblStatus.Caption = "Sending Compliment autoresponse to
guests..."
sSleep 4000

'Step 4 - Sends Other Autoreply to
customers--------------------------------------------
Forms!frmTest!lblStatus.Caption = "Sending Other Request autoresponse to
guests..."
sSleep 4000

'Step 5 - Sends All email
group-----------------------------------------------------------
Forms!frmTest!lblStatus.Caption = "Sending ALL e-mail group..."
sSleep 4000


TheCA_Exit:
Exit Function

TheCA_Err:
MsgBox Error$
Resume TheCA_Exit

End Function

 

[Klatuu]

This may help. After each line where you change the caption, put:
Me.Repaint

 

[John Cello]

Quick reply, exactly what I needed. Thanks!