************************************************** *-- Class: mybutton (c:\temp\test.vcx) *-- ParentClass: container *-- BaseClass: container * DEFINE CLASS mybutton AS container Width = 108 Height = 34 SpecialEffect = 0 Name = "mybutton" ADD OBJECT image1 AS image WITH ; Height = 21, ; Left = 4, ; Top = 5, ; Width = 21, ; Name = "Image1" ADD OBJECT label1 AS label WITH ; WordWrap = .T., ; BackStyle = 0, ; Caption = "Label1", ; Height = 53, ; Left = 27, ; Top = 3, ; Width = 69, ; Name = "Label1" PROCEDURE MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord if nButton = 1 this.specialeffect = 0 this.visible = .f. this.visible = .t. endif ENDPROC PROCEDURE MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord if nButton = 1 this.specialeffect = 1 this.visible = .f. this.visible = .t. endif ENDPROC PROCEDURE Click * * Placeholder - to make click event snippet open when dblclicked in designer ENDPROC PROCEDURE image1.MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord this.parent.mouseup(nButton, nShift, nXCoord, nYCoord) ENDPROC PROCEDURE image1.MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord this.parent.mousedown(nButton, nShift, nXCoord, nYCoord) ENDPROC PROCEDURE image1.Click this.parent.click ENDPROC PROCEDURE label1.MouseUp LPARAMETERS nButton, nShift, nXCoord, nYCoord this.parent.mouseup(nButton, nShift, nXCoord, nYCoord) ENDPROC PROCEDURE label1.MouseDown LPARAMETERS nButton, nShift, nXCoord, nYCoord this.parent.mousedown(nButton, nShift, nXCoord, nYCoord) ENDPROC PROCEDURE label1.Click this.parent.click ENDPROC ENDDEFINE * *-- EndDefine: mybutton **************************************************Pls note this is a basic class, you should enhance it to react to keyboard events, tabstop etc.