FoxPro/Visual FoxPro - define Class

Hola
Tengo el siguiente codigo

define class form1 as form
pstring = ''
add object grid1 as grid with ;
top=200, ;
left=100, ;
columncount = fcount('tmppas') ,;
deletemark = .f. ,;
recordsource = 'tmppas'
recordsourcetype = 1

este funciona
procedure grid1.afterrowcolchange
lparameters nColIndex
thisform.txt1.value = tmppas.usuario

Pregunta
tengo la sigueinte instruccion y no anda
esta bien definido elmetdo interactivechange ya que lo debague y no entra nuca aca
puedo definir comoprocedimiento este metodo, esta buien aplicado ??

procedure grid1.column1.interactivechaneg
sele tmppas
thisform.pstring = thisform.pstring+chr(lastkey())
locate for upper(alltrim(usuario))=upper(alltrim(thisform.pstring))
thisform.grid1.refresh()

enddefine

Y por que no recurres al diseñador de formulario y haces una pantalla, todo es mas facil.

Te comento . lo que pasa que es un formulario particulatr ya que lo transformo en redondo y lo hago todo por codigo, por eso necesito saber si esta bien aplicado el procedure
Ya que con el diseñador no lo puedo definir como formulario redondo

Te agradeceria si sabes como se puede hacer gracias igualmente

Public oFrm
oFrm = Createobject('algo')
oFrm.Show()
Return

Define Class Algo As Form
Procedure Load
Local hRgn
Declare Integer SetWindowRgn In user32 ;
integer HWnd, Integer hRgn , Integer bRedraw
Declare Long CreateEllipticRgn In "gdi32" Long X1, Long Y1, Long X2, Long Y2
hRgn = CreateEllipticRgn(26,22,This.Width,This.Height)
SetWindowRgn(This.HWnd, hRgn, 1)
EndProc
EndDefine

Suerte