Chat con wiscok

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form ClientFrm
Caption = "Cliente"
ClientHeight = 4020
ClientLeft =60
ClientTop = 345
ClientWidth = 5070
LinkTopic = "Form1"
ScaleHeight = 4020
ScaleWidth = 5070
StartUpPosition = 2 'CenterScreen
BeginMSWinsockLib.Winsock Winsock1
Left = 4440
Top = 600
_ExtentX = 741
_ExtentY = 741
_Version = 393216
EndBegin VB.CommandButton bntSend
Caption = "Enviar"
Height = 375
Left = 3960
TabIndex = 7
Top = 3600Width = 975
End
Begin VB.CommandButton bntConnect
Caption = "Conectar"
Height = 375
Left = 1800
TabIndex =6
Tag = "Connect"
Top = 480
Width = 1095
End
Begin VB.TextBox txtSend
Height = 285
Left =120
TabIndex = 5
Top = 3600
Width = 3735
End
Begin VB.TextBox txtPort
Alignment = 2 'Center
Height =285
Left = 960
TabIndex = 4
Text = "123"
Top = 600
Width = 735
End
Begin VB.TextBox txtIPAlignment = 2 'Center
Height = 285
Left = 960
TabIndex = 2
Text = "127.0.0.1"
Top = 120Width = 1935
End
Begin VB.TextBox txtLog
Height = 2415
Left = 120
MultiLine = -1 'True
ScrollBars = 2...