Private Sub cmdConnect_Click()
   
    With Wsk
         .Close
         .RemoteHost = TxIP
         .RemotePort = TxPort
         .Connect
    End With

End Sub

Private Sub cmdSend_Click()
    Wsk.SendData TxSend
End Sub

Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Wsk.GetData dat, vbString
End Sub

Private Sub cmdClose_Click()
Wsk.Close
End Sub

Private Sub cmdListen_Click()
    With Wsk
         .Close
         .LocalPort = TxPort
         .Listen
    End With
   
End Sub

Private Sub cmdSend_Click()
   
    Wsk.SendData TxSend
   TxLog = TxLog & "Servidor : " & TxSend & vbCrLf
   TxSend = ""
   
End Sub

Private Sub Wsk_ConnectionRequest(ByVal requestID As Long)
Wsk.Close
Wsk.Accept requestID
End Sub

Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Wsk.GetData dat, vbString
    TxLog = TxLog & "Client : " & dat & vbCrLf

End Sub

Private Sub Wsk_DataArrival(ByVal bytesTotal As Long)
Dim dat As String

    Wsk.GetData dat, vbString
End Sub