* Create Temp PRG file for ChildForm Class (Canvas) LOCAL lcFormClass, lcTemp lcTemp = ADDBS(SYS(2003)) + "VFPPaintChildForm" Thisform.AddProperty("cChildClass", lcTemp) TEXT TO lcFormClass DEFINE CLASS ChildForm AS Form ShowWindow = 1 && In TopLevel Form ScrollBars = 3 && Both ENDDEFINE ENDTEXT STRTOFILE(lcFormClass, lcTemp + ".prg") * Initialize ChildForm LOCAL loCanvasForm as Form loCanvasForm = NEWOBJECT("ChildForm", lcTemp + ".prg") WITH loCanvasForm .Left = Thisform.CanvasHolder.Left .Top = Thisform.CanvasHolder.Top .Width = Thisform.CanvasHolder.Width .Height = Thisform.CanvasHolder.Height .BorderStyle = 0 && No Border .TitleBar = 0 && Off .AddObject("ImgCanvas", "Image") Thisform.AddProperty("Image1",.ImgCanvas) .Visible = .T. ENDWITHMuchas gracias por adelantado.