oPicture = LOADPICTURE(HOME(4)+"\Bitmaps\Tlbr_w95\BACK.BMP") oImg = CREATEOBJECT("image") oImg.PictureVal = oPicture oImg.PictureVal = oPicture ? "handles", oPicture.Handle && Null oImg.PictureVal = oPicture && Error>Reassign the same OS's object reference to a Image.PicturVal,
>CLEAR >oPicture1 = LOADPICTURE(HOME(4)+"\Bitmaps\Tlbr_w95\ARC.BMP") >oPicture2 = LOADPICTURE(HOME(4)+"\Bitmaps\Tlbr_w95\BACK.BMP") > >WITH CREATEOBJECT("image") > .PictureVal = m.oPicture1 > .PictureVal = m.oPicture2 > .PictureVal = m.oPicture1 > .PictureVal = m.oPicture2 > ? "handles",m.oPicture1.Handle,m.oPicture2.Handle,"objects" at 40,m.oPicture1,m.oPicture2 > * reassign the same image > .PictureVal = m.oPicture2 > ? "handles",m.oPicture1.Handle,m.oPicture2.Handle,"objects" at 40,m.oPicture1,m.oPicture2 > .PictureVal = m.oPicture1 > ? "handles",m.oPicture1.Handle,m.oPicture2.Handle,"objects" at 40,m.oPicture1,m.oPicture2 > * reassign the same image > .PictureVal = m.oPicture1 > ? "handles",m.oPicture1.Handle,m.oPicture2.Handle,"objects" at 40,m.oPicture1,m.oPicture2 >ENDWITH > >RELEASE oPicture1,oPicture2>