#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