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

Question

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 IfEnd SubPrivate 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 SubPrivate 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 SubPrivate Sub List1_Click()End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim Temp As String
Winsock1.GetData Temp
List1.AddItem Temp
End Sub

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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