fullscreen userform

[morteza2006]

Hi all friends
I am a User Form and ask when it opens in full screen
I am grateful for your guidance.

12987

[jonh]

Dim xlws As XlWindowState
xlws = Application.WindowState
Application.WindowState = xlMaximized
With UserForm1
.Top = Application.Top
.Left = Application.Left
.Width = Application.Width
.Height = Application.Height
.Show
End With
Application.WindowState = xlws

[thangnhoc]

And controls fullscreen alow

[offensetofu]

Tried using TrevorG code:

Private Sub UserForm_Initialize()
With Application
.WindowState = xlMaximized
Me.Top = .Top
Me.Left = .Left
Me.Height = .Height
Me.Width = .Width
End With
End Sub

Keep getting message that use of ME is illegal
Any thoughts?

dinosaur game (https://dinosaur-game.io)

[SamT]

Use jonh's Code