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

生于青春

Option Explicit

% A) R7 W. c/ f6 {1 C9 k3 UPrivate Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub
2 D- D* `  z$ s; O" L& O
Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
5 h8 l4 U& G/ Q+ }End Sub
) q) w5 t, L* e$ [8 x/ P
Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub

Private Sub Form_Load()

: r# |# _$ c9 j( @* \) r6 F. J! zEnd Sub
  n; ~0 D: u7 \" h% }. Q. u# r3 `. P
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
( q* w# h* V- F7 t    Me.sktServer.Close
" W& }7 F) D9 a, z    Me.sktServer.Accept requestID
1 \6 Z; L" f1 w& z( XEnd Sub

% @* x3 k' w+ K0 {. n+ Y! W0 KPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
6 E- i# t( R& o; N1 }! x    Me.sktServer.GetData Buffer
& z" t* H5 m/ p: h( {  q: \1 q! v    Me.txtReceive.Text = Buffer
End Sub
( b: Y" @, o. ^5 s1 ~