Autor
Código:
Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Datos As String
Dim vDatos As Variant
ws(Index).GetData Datos
vDatos = Split(Datos, "|")
Select Case vDatos(0)
Case "hola" 'Nos saludan, luego lo añadiremos a la lista xDD
Lv.ListItems.Add(, Index & "|", "Nuevo").SubItems(1) = ws(Index).RemoteHostIP
End Select
End Sub
Bueno el problema se me presenta aqui en:
Código:
Split
Siempre se presenta ya sea que segui un curso y puse eso y no me da error, es que de verdad ya estoy picado!
porque es que siempre sale y me dice esto:No se a decalraro Sub o Function a que se debe esto???????
Si alguien sabe de verdad que se lo agradeceria muchisimoo!!
Salu2's!
En línea
