新手，自学，紧急求助！求大神帮忙注释一下！谢谢啦~~

生于青春

Option Explicit

Private Sub cmdListen_Click()
  z! d% [' b- f7 u) v5 y# c    Me.sktServer.Listen
End Sub

4 C- [* b$ I7 E- g+ s7 P: }4 ]Private Sub cmdSend_Click()
8 a! S, T/ }/ o5 v    Me.sktServer.SendData Me.txtSend.Text
End Sub
9 V9 i; E7 e0 O% \3 y- q( u
$ f8 n5 ?2 G. K8 V& q+ X) nPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
0 e) @; V0 G( L9 u- }End Sub

5 d6 n  |* I9 c1 ?& z' xPrivate Sub Form_Load()
- n/ {! {! u' `7 f1 ^8 i  A7 a
; }2 L! N& }" ?5 MEnd Sub
3 n3 b0 A' H1 e3 D" v7 g
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
5 |* u/ h& l" s" ^    Me.sktServer.Accept requestID
End Sub

- ?, _  ]5 K5 vPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Me.sktServer.GetData Buffer
. Y1 ?: C/ P2 k+ m6 A* c# L    Me.txtReceive.Text = Buffer
End Sub