Makes the Progress view visible.

Syntax:

Start()
Example:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds&)

Sub UseProgressBar()
    Dim Progress As ProgressView
    Dim i As Integer
    
    Set Progress = Application.Windows.ProgressView
    
    Call Progress.Start
    Call Progress.ShowCancelButton(True)
    Call Progress.SetInfoText("This is a test of the progress view.")
    Call Progress.SetTitle("Test")
    
    For i = 0 To 100
        Call Progress.SetProgress(100, i)
        Call Sleep(50)
        If (Progress.IsCanceled) Then
            Exit For
        End If
    Next i
    
    Call Progress.End

End Sub

See also:

Class ProgressView


Last Updated: 04/26/05