******************************************************************************************

  Progress meter in status bar

*******************************************************************************************

Sub ShowProgress()

'

' Purpose:      To display a progress bar in the status bar

'

Dim varRetVal As Variant

Dim i As Integer

Dim j As Integer

Dim intRnd As Integer

'Initialise Progress Meter and set Maximum to 300

varRetVal = SysCmd(acSysCmdInitMeter, "Testing...", 300)

For i = 0 To 300

    'Perform some processing or other...

    For j = 0 To 1000

        intRnd = Rnd * 10 + 1

    Next j

    'Update Meter to Show Progress

    varRetVal = SysCmd(acSysCmdUpdateMeter, i)

Next i

'Remove Meter from Status Bar

varRetVal = SysCmd(acSysCmdRemoveMeter)

End Sub