dlcPhoto=ThisForm.Pageframe1.Page6.Text4.value
if file(dlcphoto)
	ThisForm.Pageframe1.page6.Image1.picture=(dlcPhoto)
	ThisForm.Pageframe1.page6.Image1.visible=.t.
 else
 	ThisForm.Pageframe1.page6.Image1.picture=" "
	ThisForm.Pageframe1.page6.Image1.visible=.f.

endif
return dluResult