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

生于青春

Option Explicit
3 D# D" F0 a2 t. \
; m* _/ i$ q# a0 ^$ b5 o+ o( G- \Private Sub cmdListen_Click()
    Me.sktServer.Listen
- n1 V! ^& P$ i6 s" O1 WEnd Sub
# y0 x# t% c! [2 R' o
; {" a. Z) c+ H) K, k4 zPrivate Sub cmdSend_Click()
( ~7 |  m+ P! V+ M    Me.sktServer.SendData Me.txtSend.Text
. v: `4 K, y9 P% F( s' O0 Z) T/ TEnd Sub

Private Sub cmdDisconnect_Click()
5 g- w3 F7 h  t* B7 \$ N    Me.sktServer.Close
End Sub

Private Sub Form_Load()

End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
* L# z/ n  W; z2 e' w* s    Me.sktServer.Accept requestID
; y# t: l% X$ k% x4 t) pEnd Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub
$ i* F) d: H, A" F# O% e  |3 o, D