>Thisform.AddObject('oWordDoc','OleControl','WordDocument') >With Thisform.oWordDoc > .Top = 1 &&thisform.subject.Top +thisform.subject.Height +20 > .Left = 5 > .Height = Thisform.Height - 20 > .Width = Thisform.Width - 10 > .object.Application.Documents.Open(GETfile('doc')) > .Visible = .T. > Thisform.Show > .DoVerb(0) >Endwith >>