Set Dlg = CreateObject("Install.PermanentDlg")
        Dlg.Caption = "Busy!"
        Call Dlg.SetLine(0, "Please do not touch")
        Call Dlg.SetLine(1, "mouse or keyboard!")
        Dlg.Show