You'll need to subclass the control contained in the grid just like
you've done, and add the code to the subclassed item (textbox), then
substitute your subclassed control instead of using the built in textbox

HTH,Ed

>This my grid class code
>
>DEFINE CLASS pgrid AS grid
>
>PROCEDURE Init
>WITH This
> IF .recpos
> .AddColumn(1) && Insert column at left.
> poscol = "Column"+LTRIM(STR(.ColumnCount))
> .Columns(.ColumnCount).Name = poscol
> poscol=[.]+poscol
> &poscol..Width = 17
> &poscol..Enabled = .T.
> &poscol..ReadOnly = .F.
> &poscol..Header1.Caption = [Pos]
> &poscol..AddObject("ImagePos","Image")
> &poscol..ImagePos.Width = 16
> &poscol..ImagePos.Height = 16
> &poscol..ImagePos.Stretch = 1
> &poscol..ImagePos.Picture = This.ImgPicture
> &poscol..CurrentControl = "ImagePos"
> &poscol..SetFocus
> ENDIF
>ENDWITH
>ENDPROC
>
>I want to create 'PROCEDURE SetFocus' for 'poscol'.
>How? Any 1 can help?