#6638
Support 1a
Participant

    Here is some sample code. You will need to past this into your Sub Main() subroutine:

    dim iStatusDlg
      
      set iStatusDlg = Utilities.NewStatusDialog  
        
      iStatusDlg.title = "Initializing...[Please wait]"
      iStatusDlg.ProgressRange = 3
     
      ' Show the cancel button. 
      iStatusDlg.CanCancel = TRUE
      
      iStatusDlg.show
      
      
      ' Main text
      iStatusDlg.MainText = "Main text goes here"
      
      ' Status text and the progress position
      iStatusDlg.StatusText = 1  
      iStatusDlg.ProgressPosition = 1
      msgbox "Status Position: " & 1
        
      iStatusDlg.StatusText = 2     
      iStatusDlg.ProgressPosition = 2
      msgbox "Status Position: " & 2
      
      iStatusDlg.StatusText = 3  
      iStatusDlg.ProgressPosition = 3
      msgbox "Status Position: " & 3
     
      
      ' if the status cancel button pressed
      if iStatusDlg.Cancel then
        msgbox "Cancel button pressed."
      end if
              
      set iStatusDlg = nothing
    

    I hope this helps.

    Advansys Support