>* 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 > >ENDDEFINE>Then, run this code: