>you can start with this code,
>if you want to resize the client area,
>uses BINDEVENT(clientHwnd,...) SetWindowPos...
>
>

>CREATEOBJECT("form1")
>
>DEFINE CLASS form1 AS form
>
>
>	ShowWindow = 2
>	DoCreate = .T.
>	Caption = "Form1"
>	Name = "Form1"
>
>
>	ADD OBJECT olecontrol1 AS sbar WITH ;
>		Top = 184, ;
>		Left = 0, ;
>		Height = 66, ;
>		Width = 375, ;
>		Align = 2, ;
>		OleClass = "COMCTL.SBarCtrl.1"
>		OleLCID	 = 1033
>
>	PROCEDURE init
>		ADDPROPERTY(this,"me",this)
>		ADDPROPERTY(this,"child",CREATEOBJECT("form"))
>
>		this.Name = "Y"
>		this.child.Name="X"
>		this.child.windowState = 2
>		SHOW WINDOW X  IN Y
>		this.Visible=.t.
>
>ENDDEFINE
>
>DEFINE CLASS sbar as olecontrol
>		OleClass = "COMCTL.SBarCtrl.1"
>		OleLCID	 = 1033
>
>	PROCEDURE Init
>	
>		DECLARE LONG	GetParent	IN WIN32API		LONG	hWnd
>		DECLARE LONG	SetParent	IN WIN32API		LONG hWndChild, LONG hWndNewParent
>	
>		DEBUGOUT THIS.hWnd;					&& object
>			,GETPARENT(THIS.hWnd);				&& activex wrapper
>			,GETPARENT(GETPARENT(THIS.hWnd));		&& form's Client
>			,GETPARENT(GETPARENT(GETPARENT(THIS.hWnd)));	&& FORM
>			,THISFORM.HWnd					&& FORM
>
>		=SETPARENT(GETPARENT(THIS.hWnd),THISFORM.HWnd)
>	ENDPROC
>ENDDEFINE
>

>
>Fabio

Thanks, I'll give this a shot.

Tamar