>I will remind you
>
>
>TIA

Here it is:

LOCAL lcForm, loForm 
lcForm = INPUTBOX("Type the FormName you want to create: ", "New Form","")
IF EMPTY(m.lcForm)
  RETURN
ENDIF

MODIFY FORM (m.lcForm) NOWAIT 

loForm  = ASELOBJ(laForm, 1) 
IF VARTYPE(laForm[1]) = 'O' AND LOWER(laForm[1].class) = "form"
   laForm[1].MaxHeight = 600
   laForm[1].MaxWidth = 800
ENDIF
KEYBOARD '{CTRL+W}' && Save changes

=INKEY(3)
MODIFY FORM (m.lcForm)

You can add this as a custom intellisense script or just add a macro to run it when you want to create a new form.

Not sure I got it 100% right, it was just something quick.