Attribute VB_Name = "Demo"
Public Sub StartItOff()
Progress.Show
End Sub
Public Sub Runit()
Dim pctComp As Integer
Progress.StepText.Caption = "Starting demo"
pctCompl = 2
Progress.Text.Caption = pctCompl & "% Completed"
Progress.Bar.Width = pctCompl * 2
DoEvents

' Put your code in here between this comment and the close process

For x = 1 To 24

' The following 5 lines update the progress screen.

    Progress.StepText.Caption = "Running up x" & " = " & x     ' Update the caption
    pctCompl = pctCompl + 3                                    ' Calculate a percent complete value
    Progress.Text.Caption = pctCompl & "% Completed"           ' Put something in the text box
    Progress.Bar.Width = pctCompl * 2                          ' set progress bar width
    DoEvents                                                   ' Refresh
 
'   This demonstration simply waits one second. It does this so that you can
'   acually see the progress bar incrementing

    Application.Wait (Now + TimeValue("0:00:01"))   'just wait for 1 second

Next
' Close process follows

Progress.StepText.Caption = "Demo Compelete"
pctCompl = 100
Progress.Text.Caption = pctCompl & "% Completed"
Progress.Bar.Width = pctCompl * 2
Progress.CloseButton.Visible = True
DoEvents
End Sub