Hi Vlad,

as you can see in the class code below, my properties are set as you recommend.
when i run it with do form it comes up without titlebar.

the problem occurs only when i do:

oMyForm=newobject('eform_otb','ernst.vcx')
oMyForm.show()

It neither works in vfp7 nore in vfp6 SP5



**************************************************
*-- Class: eform_otb (c:\wl\klassen\ernst.vcx)
*-- ParentClass: form
*-- BaseClass: form
*-- Zeitstempel: 02/22/02 09:45:12 AM
*
#INCLUDE "c:\vfp7\foxpro.h"
*
DEFINE CLASS eform_otb AS form


Height = 480
Width = 830
ShowWindow = 2
DoCreate = .T.
AutoCenter = .T.
Picture = "..\icons&bitmaps\rahmenform3.jpg"
BorderStyle = 0
Caption = ""
ControlBox = .F.
Movable = .T.
TitleBar = 0
Name = "eform_otb"


ADD OBJECT shape1 AS shape WITH ;
Top = 0, ;
Left = 607, ;
Height = 21, ;
Width = 17, ;
BackStyle = 0, ;
BorderStyle = 0, ;
Name = "Shape1"


ADD OBJECT shape2 AS shape WITH ;
Top = 2, ;
Left = 583, ;
Height = 21, ;
Width = 17, ;
BackStyle = 0, ;
BorderStyle = 0, ;
Name = "Shape2"


PROCEDURE Activate
thisform.windowstate=0
ENDPROC


PROCEDURE Refresh
this.width=640
ENDPROC


PROCEDURE Init

Declare ReleaseCapture in "user32"
Declare long SendMessage in "user32" long hwnd, long wMsg, long wParam, long lParam

this.width=640

this.titlebar=0
ENDPROC


PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord

if nButton=1
ReleaseCapture()
SendMessage(this.hwnd,0x112,0xF012,0x0)
endif
ENDPROC


PROCEDURE shape1.Click
thisform.release()
ENDPROC


PROCEDURE shape2.Click
thisform.windowstate=1
ENDPROC


ENDDEFINE