Never mind I found the problem, this is how should be.
USE (sys_dir+"MainDef") IN 0 ALIAS MainDef
SELECT MainDef
GO top
THISFORM.BackGround = MainDef.BackGround
THISFORM.msword_ind = MainDef.msword_ind
THISFORM.backselection = MainDef.backgroun2
DO CASE
CASE MAINDEF.MBACKGROUN = 1
THISFORM.Olecontrol1.PICTURE=thisform.picture1.picture
THISFORM.Olecontrol1.picPosition = MainDef.mbackpos
CASE MAINDEF.MBACKGROUN = 2
THISFORM.Olecontrol1.PICTURE=thisform.picture2.picture
THISFORM.Olecontrol1.picPosition = MainDef.mbackpos
OTHERWISE
THISFORM.Olecontrol1.PICTURE=NULL
THISFORM.Olecontrol1.picPosition = 0
ENDCASE
SELECT MainDef
USE
thisform.olecontrol1.caption = thisform.formtitle
ThisForm.Olecontrol1.getparent
thisform.olecontrol1.refresh
Where thisform.picture1 and thisform.pictur2 are ctCLip olecontrol, Olecontrol1 is the ctFormfx.
