Bring Coreldraw to front of other windows.

Hello,
I use vb in access to control coreldraw.
I've recently upgraded to version 12 of CorelDraw. So far the only problem I've found with my scripts is when I bring CorelDraw to the top of other windows. I've always done this as follows:

dim app as coreldraw.application
set app=new coreldraw.application
app.appwindow.windowstate=cdrwindowminimized
app.appwindow.windowstate=cdrwindowmaximized

With version 11 this worked fine, but in 12, all the toolbars get messed up.

If there is a different way of doing the same thing, please offer advice.
Thanks,
Mike

[shelbym]

Using Access 2003 and CorelDraw 12 I can confirm this as a bug. It messes up the toolbars.

My question would be why you min then max the window. Why not just Maximize the window, that seems to work just fine. It is only when you do both it has problems.

when i just maximize, nothing happens.

So, when you're in access, you call
app.appwindow.windowstate=cdrwindowmaximized
and coreldraw comes to the top?

Thanks,
Mike

Just maximizing works if I happened to minimize coreldraw, the last time I used it.

However, if I just switch to a different application without minimizing coreldraw first, nothing happens.

Mike

In the top of the module, I added
Declare Function SetForegroundWindow Lib "user32" (byval hwnd as long) as boolean

Then in my script i do

dim temp as boolean
temp=setforegroundwindow(app.activewindow.handle)


Mike