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

生于青春

Option Explicit

Private Sub cmdListen_Click()
/ C1 V! N$ U  }- f# B    Me.sktServer.Listen
End Sub
, C2 F3 H# A: M7 C6 M
" n) O3 m/ [! L: ]3 a4 WPrivate Sub cmdSend_Click()
) i; W: w# Y% e- u8 [) Q& l3 V    Me.sktServer.SendData Me.txtSend.Text
End Sub
8 e. l, e6 g/ `2 K
Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
2 w' p1 S  w) O- y3 z7 C8 yEnd Sub
5 z: B6 [$ x, Y; Y- q) F
Private Sub Form_Load()

7 b2 B2 X+ g7 `" KEnd Sub
" C+ b9 P8 m3 u' x+ h2 |& I: u
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
  o. P1 j  y" @2 L    Me.sktServer.Close
# K5 q; s6 O% }  {7 d2 x- M7 U. @    Me.sktServer.Accept requestID
7 |; R4 s* C, r6 REnd Sub
( A) ?9 w9 ]  ]! [( Z4 X2 t; ^
3 t; l& X  G0 Y9 M2 GPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Me.sktServer.GetData Buffer
; Y1 x" p; z* `; D7 a+ P* \    Me.txtReceive.Text = Buffer
+ N6 I% w+ x( H, [- y$ s+ YEnd Sub