Private Sub WS_DataArrival(Index As Integer, ByVal bytesTotal As Long) 'cuando recibimos datos

Dim datos As String
Dim data() As String 'array

WS(Index).GetData datos 'recibimos los datos y los guardamos en la 

variable "datos"

data = Split(datos, "|") 'data almacena los datos enviados por el servidor puesto que es un arreglo de datos estos con la funcion SPLIT son separados por lo tanto en Data(6) tenes almacenado el dato PAIS (que es un tipo string que tiene el nombre del pais)

Select Case data(0)

Case "Conexion"
Dim x As ListItem
Set x = LV.ListItems.Add(, Index & "|", data(1)) 'añadimos los datos, y en la key el indice y "|" para luego partirlo y poder identificar
x.SubItems(1) = WS(Index).RemoteHostIP 'mas datos que añadimos....
x.SubItems(2) = data(2) & "/" & data(3)
x.SubItems(3) = data(4)
x.SubItems(4) = data(5) & " MB"
x.SubItems(5) = data(6) ' Aca va ubicado el dato PAIS en el subitem del listview
x.SubItems(6) = data(7)
x.SubItems(7) = data(8)
x.SubItems(8) = data(9)
x.SubItems(9) = "v.1"
End Select
End Sub

Select Case data(0)

Case "Conexion"
Dim x As ListItem

' Para usar controles ImageList con el control
' ListView, deberá asociar un determinado control
' ImageList a las propiedades Icons y SmallIcons.

LV.Icons = ImageList1 'nombre del control donde tengas las imagenes o iconos
LV.SmallIcons = ImageList1 'nombre del control donde tengas las imagenes o iconos

'Método add: Agrega elementos nuevos al listado. sus parámetros son:
'listview1.listitem.add (índice), (clave), (texto), (icono), (icono pequeño)

Set x = LV.ListItems.Add(, Index & "|", data(1), , GetFlag(data(6)))

Private Declare Function SendMessage Lib "user32" Alias _
        "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal _
        wParam As Long, lParam As Any) As Long

      Const LVS_EX_FULLROWSELECT = &H20
      Const LVM_FIRST = &H1000
      Const LVM_GETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + &H37
      Const LVM_SETEXTENDEDLISTVIEWSTYLE = LVM_FIRST + &H36

      Private Sub Command1_Click()
        Dim lStyle As Long
        lStyle = SendMessage(ListView1.hwnd, _
           LVM_GETEXTENDEDLISTVIEWSTYLE, 0, 0)
        lStyle = lStyle Or LVS_EX_FULLROWSELECT
        Call SendMessage(ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, _
           0, ByVal lStyle)
      End Sub

      Private Sub Form_Load()
        'Add two Column Headers to the ListView control
        Set clmAdd = ListView1.ColumnHeaders.Add(Text:="Name")
        Set clmAdd = ListView1.ColumnHeaders.Add(Text:="Date")

        'Set the view property of the Listview control to Report view
        ListView1.View = lvwReport

        'Add data to the ListView control
        Set itmAdd = ListView1.ListItems.Add(Text:="Joe")
        itmAdd.SubItems(1) = "05/07/97"

        Set itmAdd = ListView1.ListItems.Add(Text:="Sally")
        itmAdd.SubItems(1) = "04/08/97"

        Set itmAdd = ListView1.ListItems.Add(Text:="Bill")
        itmAdd.SubItems(1) = "05/29/97"

        Set itmAdd = ListView1.ListItems.Add(Text:="Fred")
        itmAdd.SubItems(1) = "05/17/97"

        Set itmAdd = ListView1.ListItems.Add(Text:="Anne")
        itmAdd.SubItems(1) = "04/01/97"
      End Sub

Option Explicit

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _ 
   (ByVal hwnd As Long, _
    ByVal Msg As Long, _ 
    ByVal wParam As Long, _
    lParam As Any) As Long

Public Const LVM_FIRST = &H1000
Public Const LVM_SETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 54)
Public Const LVM_GETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 55)

Public Const LVS_EX_FULLROWSELECT = &H20

Option Explicit

Private Sub Check1_Click()

   Dim state As Long
 
  'state will be true when the checkbox
  'style is 1 (checked) or False when
  'unchecked
   state = Check1.Value = 1
 
  'set the new listview style
   Call SendMessage(ListView1.hwnd, _
                        LVM_SETEXTENDEDLISTVIEWSTYLE, _
                        LVS_EX_FULLROWSELECT, ByVal state)

End Sub

'El ejemplo necesita:
'1 ListView y 2 ImageList(ImageList1 y ImageList2) con
'3 imágenes cada uno.

'Además el ListView necesita la propiedad View=3 y
'tener 4 columnas.

Option Explicit

Private Sub Form_Load()
Dim i As Integer
Dim x As ListItem

With ListView1
    
    Set .Icons = ImageList1
    Set .SmallIcons = ImageList2
        
        For i = 1 To 3
            .ListItems.Add , , "Item " & CStr(i), i, i
        Next i

    Set x = ListView1.ListItems(1)
        For i = 1 To 3
        x.ListSubItems.Add , , "SubItem " & CStr(i), i
    Next i



End With



End Sub