ok lo que puedeshacer es en cuando ya registres la conexion en el listview GUARDA el Index del winsock en la propidad tag del elemento ( como en el ejemplo de arriba ). y cuando des doble click (Evento DblClick del Listview) pones algo asi:
Código
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
Temibles Lunas!¡.
.