Frank:

Do you ever use ctFormFx of DBI. I am trying to change the picture programatically using this code and did not change the picture.

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
	THISFORM.Olecontrol1.picPosition = MainDef.mbackpos
		CASE MAINDEF.MBACKGROUN = 2	
	THISFORM.Olecontrol1.PICTURE=thisform.picture2
	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

Thisform.picture1 and 2 are ctclip control.

Any Guess?