Sub AppWindowWindowState() Dim state As cdrWindowState state = cdrWindowMaximized 'window should be maximized to begin the procedure AppWindow.WindowState = cdrWindowMinimized MsgBox "Corel PHOTO-PAINT is now minimized." AppWindow.WindowState = stateEnd Sub