Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim datoslocales As Variant
Winsock1.GetData datoslocales
Winsock2.SendData datoslocales
If Text1.Text = "" Then
Text1.Text = datoslocales
Else
Text1.Text = Text1.Text & vbCrLf & datoslocales
End If
End Sub

Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
Dim datosvisitantes As Variant
Winsock2.GetData datosvisitantes
Winsock1.SendData datosvisitantes
If Text2.Text = "" Then
Text2.Text = datosvisitantes
Else
Text2.Text = Text2.Text & vbCrLf & datosvisitantes
End If
End Sub