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)))