Maximize Userform

H

Howard31

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?
 
M

Mike H

Hi,

You could try this

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

Mike
 
Top