* This class uses a little trick to give the _screen tappable events DEFINE CLASS logo AS image oscr = _SCREEN PROCEDURE Init * Find a file for this object lcFile = 'logo.bmp' if not empty(lcFile) this.Picture = lcFile else return .F. endif this.Position() ENDPROC PROCEDURE oscr.Resize * This assumes the object was added to the screen as "oLogo" this.oLogo.Position() ENDPROC PROCEDURE Position * Position this image where it should be with this .Left = _screen.width / 2 - .width / 2 .Top = _screen.height / 2 - .Height / 2 endwith ENDPROC ENDDEFINEThen, run this code: