PUBLIC o o = CREATEOBJECT("myform") o.show() DEFINE CLASS myForm AS FORM ADD OBJECT cmdButton1 AS CommandButton WITH top = 10, caption = "Not Dockable" ADD OBJECT cmdButton2 AS CommandButton WITH top = 30, caption = "Dockable" ADD OBJECT cmdButton3 AS CommandButton WITH top = 50, caption = "Docked" PROCEDURE cmdButton1.Click SELECT TEST thisform.Dockable= 0 BROWSE ENDPROC PROCEDURE cmdButton2.Click SELECT TEST thisform.Dockable= 1 thisform.Dock(-1) BROWSE ENDPROC PROCEDURE cmdButton3.Click SELECT TEST thisform.Dockable= 1 thisform.Dock(1) BROWSE ENDPROC PROCEDURE Init CREATE CURSOR TEST(TEST C(10)) ENDPROC PROCEDURE Destroy USE IN SELECT("TEST") ENDPROC ENDDEFINE