Solved: maximize user form on open

[gibbo1715]

Hi Again all

Can anyone tell me how i can maximize a userform when opened please

thanks

Gibbo

[mdmackillop]

Put this in your Userform code

Option Explicit

Private ScrWidth&, ScrHeight&
Private Declare Function GetSystemMetrics32 Lib "User32" _
Alias "GetSystemMetrics" (ByVal nIndex&) As Long

Private Sub UserForm_Initialize()
Dim Factor As Single
Factor = 0.75 'adjust to suit
Me.Width = GetSystemMetrics32(0) * Factor '< in pixels
Me.Height = GetSystemMetrics32(1) * Factor
End Sub

[gibbo1715]

thanks once again

gibbo