Public oForm oForm = Createobject('myForm') oForm.Show Define Class myForm As Form DataSession=2 Height = 500 Width = 600 Add Object grdParent As Grid With ; top=0,Height=250,Width=600,RecordSource='customer' Add Object grdChild As Grid With ; top=255,Height=245,Width=600,RecordSource='orders',; Linkmaster='customer',ChildOrder='Cust_id',; relationalexpr='cust_id' Procedure Load Use customer In 0 Use orders In 0 Order Tag cust_id Endproc EnddefineCetin