FoxPro/Visual FoxPro - error al declarar evento click

hola:

TENGO ESTE PROGRAMA QUE FUNCIONA CORRECTAMENTE,EL TEMA ES QUE LE AGREGUE AL GRID UN PROCEDIMIENTO PARA ACTIVAR EL EVENTO CLICK DE LA COLUMNA 1 DEL GRID ,Y CUANDO EJECUTA ME SALE UN ERROR "TEXT1 ES UN MIEMBRO DESCONOCIDO".
EL CODIGO ES:

SET STEP ON
CLOSE DATABASES all
SET DEFAULT TO e:\prueba
SET CLASSLIB TO classgrilla additive
PUBLIC oform
oform=NEWOBJECT("miform")
OFORM.GRID1.COLUMN1.HEADER1.CAPTION='CODIGO'
OFORM.GRID1.COLUMN2.HEADER1.CAPTION='DESCRIPCION'
OFORM.GRID1.COLUMN1.WIDTH=120

oform.show

DEFINE CLASS miform as Form
top=0
left=0
docreate=.T.
caption="FORMULARIO ALTA"
WINDOWSTATE=0
NAME="FORM1"
WIDTH=640
HEIGHT=300
PROCEDURE LOAD
SET DEFAULT TO e:\PRUEBA
SET DELETED ON
USE PRECIOS IN 0
SELECT PRECIOS
THIS.Refresh
ENDPROC
ADD OBJECT GRID1 AS CLASSGRILLA WITH;
COLUMNCOUNT=3,;
RECORDSOURCETYPE=0,;
RECORDSOURCE="PRECIOS.DBF",;
READONLY=.T.,;
BACKCOLOR=RGB(174,196,210)

PROCEDURE GRID1.COLUMN1.TEXT1.CLICK //EL ERROR DA AL LLEGAR ACA MESSAGEBOX("ESTA CLICKEANDO COLUMNA 1")
ENDPROC
ENDDEFINE

DESDE YA GRACIAS

Prueba:
PROCEDURE OFORM.GRID1.COLUMN1.TEXT1.CLICK
ENDPROC
ENDDEFINE

GARCIAS MARIAS POR TU RESPUESTA,YA HABIA PROBADO ESTO QUE ME PASATEY TAMPOCO ME ANDUVO