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

生于青春

Option Explicit

" U: J! j) A: q( f% \Private Sub cmdListen_Click()
) d; a" s! {( N, G4 Z5 \  m: O    Me.sktServer.Listen
& ]& }1 G" k1 T" V0 N9 UEnd Sub
4 K5 k7 w  z5 V) I# P; N# W; P7 A5 B
Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
9 u- N" {3 `' \6 G& ~$ QEnd Sub

Private Sub cmdDisconnect_Click()
+ [; O) p6 F' R, M9 a" a# y    Me.sktServer.Close
$ r6 o2 k9 a+ l& P% OEnd Sub

Private Sub Form_Load()
. o1 @0 b& [5 x6 C) H+ i9 V6 Z0 O( T
End Sub
) `# S' Y0 m2 b6 H
! ]" ?5 r8 Z5 s3 e% Y1 SPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
( P7 r) n' O6 F. o    Me.sktServer.Close
    Me.sktServer.Accept requestID
. \5 S7 f% l! P0 o* C- \4 PEnd Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Me.sktServer.GetData Buffer
! C: h8 Y( y7 n4 @, C3 u4 ?  s5 X    Me.txtReceive.Text = Buffer
" j& f4 f5 R# u% O9 [' BEnd Sub