Create a maximize & minimize button in userform

[HansV]

In my Excel 2007, your code does that, but it's useless, as I pointed out.

[VegasNath]

Try this:

[adam]

I guess now I got what I was searching for. Thanks Nathan. I appriciate your help. I dont see any difference in this code. I guess the foreward or backwared button is added. Anyway thanks for the help once again.

[adam]

Which lines should I remove If I want the maximize button to be removed from the form? when the form is maximized it looks pretty annoying.
Any suggestions would be kindly appreciated.

[HansV]

The lines that modify the title bar are

Code: Select all

    lngCurrentStyle = GetWindowLong(lngHwnd, GWL_STYLE)
    lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX
    lngNewStyle = lngNewStyle And Not WS_VISIBLE And Not WS_POPUP
    SetWindowLong lngHwnd, GWL_STYLE, lngNewStyle

It's easy to see what you should do to remove, or rather disable, the maximize button.

[adam]

It's easy to see what you should do to remove, or rather disable, the maximize button.

Does the above refer to remove the text

Code: Select all

Or WS_MAXIMIZEBOX

From the line

Code: Select all

lngNewStyle = lngCurrentStyle Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX

[HansV]

Why don't you try it?

If it does what you want, fine. If it doesn't, it's easy to restore the code.

[adam]

I did & It works. Just thought It might give me some error messages. That's why wanted to get a clarification from you.