*frmMyForm = CREATEOBJECT('form') && Create a form *frmMyForm.Closable = .F. && Disable the Control menu box frmMyForm.AddObject('cmdCommand1','cmdMyCmdBtn') && Add Command button frmMyForm.AddObject("oleObject","oleExcelObject") && Add OLE object frmMyForm.cmdCommand1.Visible=.T. && Display the "Quit" Command button frmMyForm.oleObject.Visible=.T. && Display the OLE control frmMyForm.oleObject.Height = 50 && OLE control height frmMyForm.Show && Display the form frmMyForm.oleObject.DoVerb(-1) && -1 for Edit READ EVENTS && Start event processing DEFINE CLASS oleExcelObject as OLEControl OleClass ="Excel.Sheet" && Server name DocumentFile = "C:\EXCEL\BOOK1.XLS" && This file must exist ENDDEFINE DEFINE CLASS cmdMyCmdBtn AS CommandButton && Create Command button Caption = '\<Quit' && Caption on the Command button Cancel = .T. && Default Cancel Command button (Esc) Left = 125 && Command button column Top = 210 && Command button row Height = 25 && Command button height PROCEDURE Click CLEAR EVENTS && Stop event processing, close form ENDDEFINEHTH