Speeding up a macro

Hi---In an effort to speed up a macro I used this:

   Sub test()

            Optimization = True
            EventsEnabled = False
            ActiveDocument.SaveSettings
            ActiveDocument.PreserveSelection = False

             'does the macro
            
             ActiveDocument.RestoreSettings
             EventsEnabled = True
             Optimization = False
             ActiveWindow.Refresh
             
             End Sub

This speeds it up a lot. However, when I work I use a docker with the Object Manager, and Graphics and Text Styles, open. Each time a drawing is opened during the macro these dockers refresh, slowing down the macro. Can anyone tell me how to turn these dockers off while the macro is running?
Thanks!

[Alex]

Rick, what version of CorelDRAW do you use?

The easiest method would be to use VBA's SendKeys method and simulate keystrokes for Windows>Docker>... menu items. However you still need to find out if the docker is actually there before you send those keys. You can use FindWindow from Windows API to try to locate the docker window if it's already open.

You could use SendMessage Windows API function to show/hide the docker instead of resorting to SendKeys... Anyway, let me know your Draw version and I will try to come up with some solution that would work in your case.

Oh, did I mention that there isn't an easy way to handle dockers through CorelDRAW's object model?

Iam using CorelDraw 11, but will need the same code for 10 if possible.