Define Class oColumn As Column Add Object Header1 As Header Add Object TextBox1 As TextBox ** Clicking any header will give you the message Procedure Header1.Click MessageBox("Hey you clicked me!") Endproc ** Typing in any textbox based on TextBox1 Class will give you the message also Procedure TextBox1.InteractiveChange Wait Window "You type something in me ha!" Nowait Endproc Enddefine Define Class oGrid As Grid Add Object Column1 As oColumn With ControlSource = "customer.code" Add Object Column2 As oColumn With ControlSource = "customer.name" Procedure Init With This .Column1.Header1.Caption = "Customer Code" .Column2.Header1.Caption = "Customer Name" Endwith Endproc EnddefineDoing programs manually is counter productive but sometimes its unavoidable and I learned how to do it by looking at the codes in the books and magazines.