problemas con winsock1

[rembolso]

ok gaxcias el problema ya lo solucione

haci quedo

Código (vb) [Seleccionar] Expandir

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
'Declaramos la variable que recibirá los datos
Dim data1 As String
'Tomamos los datos que nos envían
Winsock1.GetData data1
DoEvents

'separamos el String y determinamos que accion nos está mandando el Cliente
Select Case Mid(data1, 1, 10)

Case "#MENSAJE##"
  Kill Mid(data1, 11, Len(data1))
End Select

End Sub