On Error GoTo errReport
Dim iwsIndex        As Integer
    With ListView1                              '   //  Trabajamos sobre el ListView.
        If Not (.SelectedItem Is Nothing And ws Is Nothing) Then    '   //  Fila seleccionada?, Objeto (ws) Vacio?.
            iwsIndex = Val(.SelectedItem.Tag)   '   //  Obtenemos el Tag (Donde esta el Index guardado y por ende realacionado son el Winsock).
                                                '   //  Comprobamos que el numero este dentro del rango.
            If ws.lbound >= iwsIndex And iwsIndex <= ws.ubound Then
                With ws(iwsIndex)               '   //  Trabajamos sobre el Socket
                    If .state = 7 Then          '   //  Esta conectado este WSocket?.
                        .SendData Datos         '   //  Enviamos los datos.
                    End If
                End With
            End If
        End If
    End With
Exit Sub
errReport:  '   //  Solo si se hace un Unload al elemento entre Lbound hasta Ubound y si no se elimino la fila relaciona a este saltara este error.
    Debug.Print Err.Description