Set Dlg = CreateObject("Install.PermanentDlg")
        Dlg.Caption = "Busy!"
        Call Dlg.SetLine(0, "Upgrading")
        Call Dlg.SetLine(1, "SaveAndRestore")
        Dlg.Show