CODE: put text on status bar

[A Man]

I put text on the status bar to update the user the progress of current
operations that take a while. I usually display the current record and
total number of records being processed, so my message looks like:
"Processing record 1 of 110..."

Here is the code to display text to the status bar.

Public Sub StatusBar(s As String)
' Display text on status bar.
Dim i As Integer

i = SysCmd(acSysCmdSetStatus, s)

End Sub