o = CREATEOBJECT('labelbold')
o.show( 1 )

DEFINE CLASS labelbold AS form


	DoCreate = .T.
	Caption = "Form1"
	Name = "Form1"


	ADD OBJECT label1 AS label WITH ;
		AutoSize = .T., ;
		FontSize =  30 , ;
		Caption = "Move under me", ;
		Height =  48 , ;
		Left =  80 , ;
		Top =  84 , ;
		Width =  120 , ;
		Name = "Label1"


	PROCEDURE label1.MouseLeave
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.FontBold = .f.
	ENDPROC


	PROCEDURE label1.MouseEnter
		LPARAMETERS nButton, nShift, nXCoord, nYCoord
		this.FontBold = .t.
	ENDPROC


ENDDEFINE