Hi Ric here the code
**************************************************
*-- Class: testform (d:\test\gmu\klassen\mps_12.vcx)
*-- ParentClass: form
*-- BaseClass: form
*-- Zeitstempel: 05/07/00 08:56:08 PM
*
ox=createob("testform")
wait window str(ox.WindowType,2) time.5
ox.show(1)
release ox

DEFINE CLASS testform AS form
Desktop = .T.
ShowWindow = 2
DoCreate = .T.
Caption = "Form3"
WindowType = 1
Name = "testform"


ADD OBJECT command1 AS commandbutton WITH ;
Top = 120, ;
Left = 144, ;
Height = 25, ;
Width = 181, ;
Caption = "Command1", ;
Name = "Command1"


PROCEDURE command1.Click
thisform.release
ENDPROC


ENDDEFINE
*
*-- EndDefine: testform
**************************************************
Thanks Winfried