LOCAL lcFileName lcFileName = GETFILE("BMP", ; this.Caption, ; SELECTBUTTON_LOC) IF !EMPTY(lcFileName) thisform.pageframe1.page1.imgPicture.Picture = lcFileName REPLACE category.picture_file WITH lcFileName thisform.Refresh() ENDIF