SoloCodigo

Hola:
Tengo un problemilla al establecer conexiones con equipos remotos. Resulta que se me conecta bien, pero cuando desconecto un cliente no se me cierra el programa. Supongo que será porque no cierro el thread. Aqui les dejo algo d codigo a ver si encuentran algo mal:

CODIGO DEL SERVIDOR

Private Sub LeerSocket()
        Dim IDReal As Net.IPEndPoint 'ID del cliente que se va a escuchar
        Dim Recibir() As Byte 'Array utilizado para recibir los datos que llegan
        Dim InfoClienteActual As InfoDeUnCliente 'Informacion del cliente que se va escuchar
        Dim Ret As Integer = 0
        IDReal = IDClienteActual
        InfoClienteActual = Clientes(IDReal)
        With InfoClienteActual
            While True
                If .Socket.Connected Then
                    Recibir = New Byte(100) {}
                    Try
                        'Me quedo esperando a que llegue un mensaje desde el cliente
                        Ret = .Socket.Receive(Recibir, Recibir.Length, SocketFlags.None)
                        If Ret > 0 Then
                            'Guardo el mensaje recibido
                            .UltimosDatosRecibidos = Encoding.ASCII.GetString(Recibir)
                            Clientes(IDReal) = InfoClienteActual
                            'Genero el evento de la recepcion del mensaje
                            RaiseEvent DatosRecibidos(IDReal)
                        Else
                            'Genero el evento de la finalizacion de la conexion
                            RaiseEvent ConexionTerminada(IDReal)
                            Exit While
                        End If
                    Catch e As Exception
                        If Not .Socket.Connected Then
                            'Genero el evento de la finalizacion de la conexion
                            RaiseEvent ConexionTerminada(IDReal)
                            Exit While
                        End If
                    End Try
                End If
            End While
            Call CerrarThread(IDReal)
        End With


 Public Sub CerrarThread(ByVal IDCliente As Net.IPEndPoint)

        Dim InfoClienteActual As InfoDeUnCliente
        'Cierro el thread que se encargaba de escuchar al cliente especificado
        InfoClienteActual = Clientes(IDCliente)

        Try
            InfoClienteActual.Thread.Abort()
        Catch e As Exception
            SyncLock Me
                'Elimino el cliente del HashArray que guarda la informacion de los clientes
@@@ Aqui me da un menaje de erro "Subproceso anulado" @@@  
                Clientes.Remove(IDCliente)
            End SyncLock
        End Try

    End Sub

GRACIAS

Este es el codigo de un ejemplo que hice de prueba. Lo que hace es comprobar qu esta activado o no y si quieres puedes activarlo y establecer el tiempo
---------------------------------------------------------------------
OBJETOS:
2 botones -BtnVer, Btncambiar
1 Combobox, para seleccionar, activado o desacticado
1 textbox para poner el tiempo
---------------------------------------------------------------------

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Dim estadosalvapantallas As String  '1 activo | 2 inactivo
        'Dim tiemposalvapantallas As String  'Tiempo de espera para que salte el salvapantallas

        'Dim i As Long

        Me.btnver.Text = "&Ver"

        Me.btncambiar.Text = "&Cambiar"

        'i = PwdChangePassword("SCRSAVE", 1515, 0, 0)
        Dim Ret As Boolean
        'Ask the user to type in the password
        Ret = VerifyScreenSavePwd(Me.Top)
        If Ret Then
            'If there's no password, VerifyScreenSavePwd automatically returns True
            MsgBox("OK.... you've entered the correct password, or there is no screen saver password!")
        Else
            MsgBox("Invalid password entered")
        End If
        'MessageBox.Show(i)

    End Sub

    Private Sub btncambiar_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncambiar.Click
        Dim CadenaResultante As Integer
        Dim Valor As Integer
        If CBBestado.Text = "Activo" Then
            Valor = 1
        Else
            Valor = 0
        End If


        CadenaResultante = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, Valor, 0, SPIF_UPDATEINIFILE)
        If CBBestado.Text = "Activo" Then
            CadenaResultante = SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, CInt(Me.txttiempo.Text) * 60, 0, SPIF_UPDATEINIFILE)
        End If
    End Sub

    Private Sub btnver_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnver.Click
        Dim CadenaResultante As String
        Dim ValorRetornoI As Integer

        CadenaResultante = SystemParametersInfo(SPI_GETSCREENSAVEACTIVE, 0, ValorRetornoI, SPIF_SENDWININICHANGE)

        If ValorRetornoI = 1 Then
            MessageBox.Show("Protector de pantalla activado")
            CadenaResultante = SystemParametersInfo(SPI_GETSCREENSAVETIMEOUT, 0, ValorRetornoI, 0)
            MessageBox.Show("El protector de pantalla se ejecuta a los : " & ValorRetornoI / 60 & " minutos")

        Else
            MessageBox.Show("Protector de pantalla desactivado")
        End If
    End Sub

Espero haberte ayudado en algo