Sub AppWindowWindowState() Dim state As cdrWindowState state = cdrWindowMaximized AppWindow.WindowState = cdrWindowMinimized MsgBox "CorelDRAW is now minimized." AppWindow.WindowState = stateEnd Sub