IF Type("Application.ActiveProject") = "O" Application.ActiveProject.Visible = .F. ENDIF IF WEXIST("Command") HIDE WINDOW Command ENDIF