Screen Width & Height

[leerem]

How can I increase the size of the form to the screen size.

I used the following but this produced an error. Variable Not defined


Sub Userform Initialize()
with Userform1
.Width=Screen.Width
.Height=Screen.Height
End With
End Sub

How can I increase the size of the userform to the screen size as this form
will be used on multiple screens of different sizes.

Regards
Lee

 

[leerem]

Solved it by writing a few functions

Public Declare Function GetSystemMetrics Lib "User32" _
(ByVal nlndex As Long) As Long

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1

Public Function ScreenHeight() As Long

ScreenHeight = GetSystemMetrics(SM_CYSCREEN)

End Function
Public Function ScreenWidth() As Long

ScreenWidth = GetSystemMetrics(SM_CXSCREEN)

End Function

Thanks anyway to anyone who tried to assist

 

[leerem]

Solved it by writing a few functions

Public Declare Function GetSystemMetrics Lib "User32" _
(ByVal nlndex As Long) As Long

Public Const SM_CXSCREEN = 0
Public Const SM_CYSCREEN = 1

Public Function ScreenHeight() As Long

ScreenHeight = GetSystemMetrics(SM_CYSCREEN)

End Function
Public Function ScreenWidth() As Long

ScreenWidth = GetSystemMetrics(SM_CXSCREEN)

End Function

Thanks anyway to anyone who tried to assist