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

生于青春

Option Explicit

Private Sub cmdListen_Click()
    Me.sktServer.Listen
" J2 x: j( P8 V. A7 IEnd Sub
! w5 O7 Q( x5 l
Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub
& ?+ k- {: I9 |( \" M2 o# ~
Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub

& j, E2 b+ u( V5 PPrivate Sub Form_Load()
4 ~% a# K. J! Y" w# V- P1 R
End Sub
3 X; x3 Y; J# x! u& \* y* x
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
' ?8 h. Q4 ~, Y5 D# N! C/ f; f; }    Me.sktServer.Close
  y! t' z1 O, k; y# Q    Me.sktServer.Accept requestID
End Sub
7 _" v: A) U$ Q$ e: J& H- F; t
5 Q1 ~! z7 J2 i' k8 d3 L- z/ r" G+ TPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
" h3 s8 q! [& T; |    Dim Buffer As String
    Me.sktServer.GetData Buffer
% l5 S6 p$ Z0 y8 J6 f    Me.txtReceive.Text = Buffer
/ i. P9 V0 i- f, \+ N3 HEnd Sub
7 \3 u. o( l7 s4 o/ k# }+ K: C/ M$ L