function showProgress(cMode)

   //Pass progress message to oProgress.msg.text 
   
      _app.allowYldOnMsg = true
   do case
      case cMode="Open"
         // Create a progress message form and attach it to a public variable
         //Using a public variable ensures that the form stays available and 
         //doesn't "die" when the program ends..
         public oProgress 
         oProgress = new Progform()
         oProgress.open()
      case cMode="Close"
         oProgress.close()
         release oProgress 
    endcase      
   return
   
class ProgForm of FORM
   with (this)
      metric = 6	// Pixels
      text = "Progress"
      autoSize = true
      autoCenter = true
   endwith
   this.MSG = new TEXTLABEL(this)
   with (this.MSG)
      height = 24.0
      left = 0.0
      top = 0.0
      width = 280.0
      text = ""
      borderStyle = 4	// Single
      alignVertical = 1	// Middle
   endwith
endclass