Private Sub cmdConnect_Click()'按钮 cmdConnect 单击事件
With Winsock1'winsock对象
    .RemoteHost = Trim(txtRemoteHost)'远程主机
    .RemotePort = Trim(txtRemotePort)'远程端口
    .LocalPort = Trim(txtLocalPort)'本地端口
    .Bind .LocalPort'绑定本地端口
End With
txtLocalPort.Locked = True'锁定文本框 txtLocalPort

End Sub'结束事件

Private Sub Form_Load()'窗体加载过程
   txtLocalIp.Text = Winsock1.LocalIP'文本框内容=本机IP

End Sub'结束过程

Private Sub txtSend_KeyPress(keyAscii As Integer)'文本框 txtSend 键盘按下事件

If keyAscii = 13 Then'如果按下回车
   
    Winsock1.SendData txtSend.Text'发送 文本框 txtSend 内容
End If

    
End Sub'结束事件

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)'有数据到达时 事件
    Dim New_Text As String'声明一个字符串变量New_Text

    Winsock1.GetData New_Text'接收数据
    lblReceived.Caption = New_Text'标签 lblReceived 内容= 收到的数据
    
End Sub'结束事件

cmdConnect_Click：按纽的单击事件。

With 语句：对某个对象执行一系列的语句，而不用重复指出对象的名称，在你这段代码中，对象就是Winsock1，所以在With下面凡是关于Winsock1的属性或方法，都不需要再打Winsock1这几个字了。

Trim函数：去除字符串两头的空格，你这段代码中，txtRemoteHost似乎是文本框控件，那么就是去掉文本框中字符串两头的空格。顺便说明一下，文本框的默认属性是Text，而默认属性的名称是可以省略的，所以，txtRemoteHost等价于txtRemoteHost.Text。

Locked属性：指定文本框是否被锁定，＝True表示锁定，也就是说，用户不能在文本框中进行打字、删除、粘贴等编辑工作了。

Form_Load：窗体加载时发生的事件，在这里你可以对一些变量或控件的属性赋初值，进行初始化工作。

txtSend_KeyPress事件：txtSend好象也是一个文本框吧，当用户按下和松开键盘上的一个 ANSI 键时发生KeyPress事件，所谓 ANSI 键是指具有Ascii码的键，象字母键“A”、“B”数字键“1”、“2”以及回车键等等。而“F1”、“F2”等就不是 ANSI 键。

If keyAscii = 13 Then：因为回车键的Ascii码＝13，所以这一句的意思就是，如果用户按下了回车键，那么就执行Then后面的代码。

谢谢 snyga  谢谢 一江秋水
你们让我有信心通过这次的测验
在此，在次谢谢2位的帮忙