No se agrega información al listview [??]

[Barugasu]

Hola. Pues estaba programando una aplicación en ambiente cliente/servidor y me surgió un problema. Nota: Estoy usando el CSocketPlus (por la multiconexión).

Cuando separo los datos que recibo de mi servidor, todo bien; el problema llega cuando viene la parte de colocar los datos recibidos en el listview. Por alguna razón, no se agrega nada, sin embargo, si al final del código uso "Debug.Print" para asegurarme de que sí llegó información, da positivo.

Este es mi código:

Código (vb) [Seleccionar] Expandir

Private Sub Winsock_DataArrival(ByVal Index As Variant, ByVal bytesTotal As Long)
Dim Paquete As String
Dim Datos() As String
Winsock.GetData Index, Paquete
Datos = Split(Paquete, "|")
Select Case Datos(0)
Case "Caso1"
Dim Subelemento As ListItem
Set Subelemento = List1.ListItems.Add(, , Datos(1))
Subelemento.SubItems(1) = Datos(2)
End Select
End Sub

¿Alguien le ve algún error? Muchas gracias. Barugasu.