Reza,

Create a descendent class of label and place your code into that class. Use that descendent label class in your form.

Example:

DEFINE CLASS red_label AS label


Caption = "Label1"
Height = 17
Width = 40
Name = "red_label"


PROCEDURE MouseDown
LPARAMETERS nButton, nShift, nXCoord, nYCoord

THIS.ForeColor = 255

RETURN
ENDPROC


PROCEDURE MouseUp
LPARAMETERS nButton, nShift, nXCoord, nYCoord

THIS.ForeColor = 0

RETURN
ENDPROC


ENDDEFINE