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.refreshWhere thisform.picture1 and thisform.pictur2 are ctCLip olecontrol, Olecontrol1 is the ctFormfx.