_screen.NewObject('oLogo', 'logo') _screen.oLogo.Visible = .T. SUSPEND * 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 = 'C:\WINNT\GONE FISHING.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