>>subclass the WinSock control in VFP <<

Is subclassing somehow as followed?

*----------------------------------------------------------------
define class mysocks as winsock
procedure dataarrival
lparameters totalbytes
local s
s = space( totalbytes )
this.getdata ( @s )
this.senddata ( alltrim(s) + ':' + ' Accepted' )
endproc
enddefine
*---------------------------------------------------------------
but it seems not work.
can you tell more details?