DEFINE class campo as textbox
	Height = 24
	Left = 240
	Top = 85
	Width = 113
	FontName = 'Arial'
	FontSize = 8
	Height = 23
	Name = "TxtCampo"
	PROCEDURE valid
	    LPARAMETERS p1, p2
	    WAIT window "VAlid do campo ADDICIONADO"
	    *---- Seu codigo
	ENDPROC
ENDDEFINE