CREATE TABLE MyPics ( MyName C(25), MyPic C(254) ) INSERT INTO MyPics (MyName, MyPic) VALUES ("GoodNancy", HOME() + 'GRAPHICS\BITMAPS\ASSORTED\BEANY.BMP' ) INSERT INTO MyPics (MyName, MyPic) VALUES ("BadNancy", HOME() + 'GRAPHICS\BITMAPS\ASSORTED\SMOKES.BMP' ) LOCAL ox ox = NEWOBJECT('frmMyPics', 'temp.PRG') ox.SHOW(1) RETURN DEFINE CLASS frmMyPics AS FORM ADD OBJECT btnNext AS COMMANDBUTTON WITH ; CAPTION = "Next Pic", ; height = 24 ADD OBJECT imgMyPic AS IMAGE WITH ; TOP = 25, ; HEIGHT = 80, ; WIDTH = 80 PROCEDURE INIT GO TOP IN MyPics THIS.imgMyPic.PICTURE = MyPics.MyPic ENDPROC PROCEDURE btnNext.CLICK SKIP 1 IN MyPics IF EOF( 'MyPics' ) GO TOP IN MyPics ENDIF THISFORM.imgMyPic.PICTURE = MyPics.MyPic THISFORM.REFRESH() ENDPROC ENDDEFINE