hola tengo un problema.

He creado dos forms uno es un cliente y el otro es un servidor.

he añadido 1 winsock a cada form, configurandolo s correctamente.

En el form Cliente he puesto dos botones y un textbox.

El primer botón, lo que hace es conectarse con el servidor, y el segundo botón, envía el texto, del textbox1.

Al depurar los forms, en el form "Cliente", cuando le doy ha enviar el texto, me apareze esto:
 
"No se controló  COMException"

Y me dice que deshabilite eso. ¿Cómo puedo hacerlo?Ó ¿Cómo puedo solucionarlo,para que no me tire eese error?

mil gracias y saludos de antemano..
..

aquí os dejo el codigo.

Cliente:

Código:

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Winsock1.Listen()
    End Sub

     Private Sub Winsock1_ConnectionRequest(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_ConnectionRequestEvent) Handles Winsock1.ConnectionRequest
        Winsock1.Close()
        Winsock1.Accept(e.requestID)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Winsock1.SendData(TextBox1.Text)
    End Sub
End Class


Servidor:

Código:

Public Class Form1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Winsock1.CtlState = 0 Then
            Winsock1.Connect()
        ElseIf Winsock1.CtlState = 7 Then
        Else
            Winsock1.Close()
        End If
    End Sub
 
    Private Sub Winsock1_DataArrival(ByVal sender As Object, ByVal e As AxMSWinsockLib.DMSWinsockControlEvents_DataArrivalEvent) Handles Winsock1.DataArrival
        Dim datos As String = ""
        Winsock1.GetData(datos)
        MsgBox(datos)
    End Sub
End Class

saludos..

es que por aora quiero usar el winsock..

Esque los sockets no entiendo como usarlos y eso..
....