Maximize Userform
 

Hi All,

I've written the following in the Innitialize Userform event to have a
Maximize button on the Userform.

Style = GetWindowLong(hWnd, GWL_STYLE)
Style = Style Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX Or WS_SYSMENUE Or
WS_CAPTION
SetWindowLong hWnd, GWL_STYLE, Style

My question now is how to tell VBA to open the userform in Maximize Mode?


--
A. Ch. Eirinberg

Maximize Userform
 

ShowWindow hWnd, SHOW_FULLSCREEN

Regards,
Peter T

"Howard31" wrote in message
...
Hi All,

I've written the following in the Innitialize Userform event to have a
Maximize button on the Userform.

Style = GetWindowLong(hWnd, GWL_STYLE)
Style = Style Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX Or WS_SYSMENUE Or
WS_CAPTION
SetWindowLong hWnd, GWL_STYLE, Style

My question now is how to tell VBA to open the userform in Maximize Mode?


--
A. Ch. Eirinberg

Maximize Userform
 

Hi,

You could try this

With Me
.Height = Application.UsableHeight
.Width = Application.UsableWidth
.Left = 0
.Top = 0
End With

Mike

"Howard31" wrote:

Hi All,

I've written the following in the Innitialize Userform event to have a
Maximize button on the Userform.

Style = GetWindowLong(hWnd, GWL_STYLE)
Style = Style Or WS_MAXIMIZEBOX Or WS_MINIMIZEBOX Or WS_SYSMENUE Or
WS_CAPTION
SetWindowLong hWnd, GWL_STYLE, Style

My question now is how to tell VBA to open the userform in Maximize Mode?


--
A. Ch. Eirinberg