Dear Sir ,

I use VB8 (visual bisic express) download from internet.
but I can not find winsock object.
So I download winsock object from internet.

I write server/client application use winsock that i just download.
the code are as the following:
-------------------------------------------------------------------------- Public Class ServerFrm
Dim strData As String
Dim requestID As Integer

Private Sub ServerFrm_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
TcpServer.Protocol = MSWinsockLib.ProtocolConstants.sckTCPProtocol
TcpServer.LocalPort = 1001
TcpServer.Listen()
ClientFrm.Show()
End Sub



Private Sub TcpServer_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles TcpServer.ConnectionRequest
TcpServer.Accept(requestID)
End Sub

Private Sub TcpServer_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles TcpServer.DataArrival
TcpServer.GetData(strData)
RecieveTxt1.Text = strData
End Sub


Private Sub SendTxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendTxt1.TextChanged
TcpServer.SendData(SendTxt1.Text)
End Sub
End Class
--------------------------------------------------------------------------
Public Class ClientFrm
Dim strData As String

Private Sub ClientFrm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TcpClient.Protocol = MSWinsockLib.ProtocolConstants.sckTCPProtocol
TcpClient.RemoteHost = "anurak"
TcpClient.RemotePort = 1001
End Sub

Private Sub ConnectCmd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectCmd.Click
TcpClient.Connect()
End Sub

Private Sub TcpClient_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles TcpClient.DataArrival
TcpClient.GetData(strData)
RecieveTxt2.Text = strData
End Sub

Private Sub SendTxt_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendTxt2.TextChanged
TcpClient.SendData(SendTxt2.Text)
End Sub
End Class
-------------------------------------------------------------------------
but when I run it i get the runtime error as "COM exception HRESULT
0x800A9C46" at the line "TcpClient.SendData(SendTxt2.Text).

what is the meaning of this error?
And how can i solve it ? Please help

Anurak