Use the followingcode...
public lngI as long
'The next function will initialize the progress meter. Set lngCount equal to however many steps in your macro or however many increments you will be moving the progress bar in...
Public Function Initialize()
Dim VarReturn As Variant
Dim lngCount As Long
lngCount = 5
VarReturn = SysCmd(acSysCmdInitMeter, "Processing...", lngCount)
'Initialize a counter variable... If you're running different procedures, this should probably be a public variable.
lngI = 0
End Function
'The next function will increase your counter and add boxes to the progress meter.. Perhaps call this after each step in the macro...
Public Function Increase()
Dim VarReturn As Variant
lngI = lngI + 1
VarReturn = SysCmd(acSysCmdUpdateMeter, lngI)
End Function
'The next function will clear the status bar...
Public Function Finished()
Dim VarReturn As Variant
VarReturn = SysCmd(acSysCmdClearStatus)
End Function
Hope this helps...
Doug
