Private Sub Form_Load()
Winsock1.LocalPort = 101 
Winsock1.Listen 
Form1.Caption = "Сервер"
End Sub
 
Private Sub Text1_Change() 
Winsock1.SendData Text1.Text 
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close 
Winsock1.Accept requestID 
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
Dim D As String
Winsock1.GetData D 
Text2.Text = D
End Sub

Private Sub Form_Load()
Winsock1.RemoteHost = "127.0.0.1" 
Winsock1.RemotePort = 101 
Winsock1.Connect 
Form1.Caption = "Клиент"
End Sub
 
 
Private Sub Text1_Change() 
Winsock1.SendData Text1.Text 
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 
Dim DD As String 
Winsock1.GetData DD
Text2.Text = DD
End Sub