dear experts

happy new year


I want to receive data from telephone exchange using winsock control.. Exchange has an IP ie 192.168.1.50, Port 5100, I'd gone thru the detail & downloaded a small program of winsock, but not able to receive it... It works fine with Windows Hyper Terminal

tcpserver is name of winsock control
txtoutput is name of textbox in which i want to show data

form Init Event
--------------
ThisForm.tcpServer.Object.LocalPort = 1001
ThisForm.tcpServer.Object.Listen


**************Winsock_DataArrival Event
*** ActiveX Control Event ***
LPARAMETERS bytestotal

strData = SPACE(256) && Define string to pass to GetData

This.Object.GetData(@strData)
ThisForm.txtOutput.Value = strData

*************winsock Connectionrequest Event
*** ActiveX Control Event ***
LPARAMETERS requestid
#DEFINE sckClosed 0
If This.Object.State <> sckClosed
This.Object.Close
ENDif
*!* Accept the request with the requestID
*!* parameter.
This.Object.Accept(requestID)

Kindly help


kumardheeraj