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

生于青春

Option Explicit

: I- A5 @& J& P7 ?% ePrivate Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub
4 ]3 s6 n7 u7 U
1 k) T: s% N5 O% aPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
0 f; w  ~6 j8 S+ F8 T! t+ B& R2 D$ BEnd Sub

Private Sub cmdDisconnect_Click()
: F, A3 m$ W7 I+ e  f    Me.sktServer.Close
, L9 P. D1 S2 QEnd Sub
0 _. [# q* @. y( [- B( g& s
6 X4 a7 ~3 v7 y+ M4 ]+ iPrivate Sub Form_Load()

8 _/ J0 P: g) S0 OEnd Sub
# h" o' n4 ?. K( A) |! P
+ ^4 e: o- z1 \2 B3 e- yPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
8 ?. A- S. s$ @) D    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub
; ?# R' s, G" M. p# f# H
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
& K; ?6 `0 n1 C# t- J8 q$ ?    Dim Buffer As String
' s* ?8 S9 ~! h& p    Me.sktServer.GetData Buffer
; j4 C& P: _  J/ l4 r: E# f    Me.txtReceive.Text = Buffer
End Sub