Try to add to Winsock Close() event

* Winsock.Close()
*** ActiveX Control Event ***
IF THISFORM.winsock1.State <> 0
     THISFORM.winsock1.OBJECT.Close()
ENDIF

>After run sample program from tek-tips site, I found I can't quit vfp smoothly. How to solve it? TIA.

>Sample Program:
<snip>