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.

Book1.xlsm

[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

[SamT]

Use jonh's Code