求助！这一段代码每一句都什么意思啊？

[weixin_39334287]

Private Sub Command1_Click()
Static OldWord As String
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Or Trim(Text3.Text) = "" Or Trim(Text4.Text) = "" Or Trim(Text5.Text) = "" Then Exit Sub
If Trim(Text5.Text) <> "" And OldWord <> Text1.Text & ":" & Text5.Text Then
   Winsock1.RemoteHost = Text2.Text
   Winsock1.SendData Text1.Text & ":" & Text5.Text
   List1.AddItem Text1.Text & ":" & Text5.Text
   OldWord = Text1.Text & ":" & Text5.Text
End If

End Sub

Private Sub Command2_Click()
   Winsock1.Close
   Winsock1.RemoteHost = Text2.Text
   Winsock1.LocalPort = Val(Text3.Text)
   Winsock1.RemotePort = Val(Text4.Text)
   Winsock1.Bind Val(Text3.Text)
End Sub

Private Sub Form_Load()
Label4.Caption = "本机IP：" & Winsock1.LocalIP
Text2.Text = "10.2.5.47"
Text3.Text = "1001"
Text4.Text = "1001"
Winsock1.LocalPort = Val(Text3.Text)
Winsock1.RemotePort = Val(Text4.Text)
Winsock1.Bind Val(Text3.Text)

End Sub

Private Sub List1_Click()

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Temp As String
Winsock1.GetData Temp
List1.AddItem Temp
End Sub

[zdingyun]

安装个MSDN6.0，LZ的疑问基本都可找到答案。

[zdingyun]

[of123]

VB 是最接近英语自然语言的计算机语言。

[weixin_39334287]

然后他建立连接的代码是哪些啊，求助求助！

[无·法]

每一句什么意思。。。 先学习基础知识，不会的自己百度查资料啊，再搞不定的针对具体问题点来问。一点都不学就来问，谁能一口口喂你吃啊

[赵4老师]

MSDN98_1.ISO http://pan.baidu.com/s/1dDF41ix, MSDN98_2.ISO http://pan.baidu.com/s/1bnGo0Vl

[赵4老师]

查MSDN是Windows程序员必须掌握的技能之一。

[greatbody]

Static OldWord As String https://zhidao.baidu.com/question/360739079.html

[greatbody]

Text1.Text TextBox：http://blog.163.com/zsy_19880518/blog/static/18525812720126185214947/

[greatbody]

Trim(Text1.Text) Trim：http://blog.csdn.net/nctu_to_prove_safety/article/details/53433814