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

生于青春

Option Explicit
7 y- l4 c& W* m: K% }/ \  D* O8 l
# f8 A, r, E' `Private Sub cmdListen_Click()
$ g! H8 k$ Q. X0 j& L+ M    Me.sktServer.Listen
End Sub
# A, s) G7 a$ R9 q& A" r! v! v
5 {2 @5 r) ?& k, {3 `Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
+ b2 s. r' B; Z0 V9 @6 B1 [End Sub

Private Sub cmdDisconnect_Click()
$ P$ z8 m! b" g  C! V    Me.sktServer.Close
# z, _$ }8 p9 k. ^, ]End Sub

Private Sub Form_Load()

End Sub

* g9 c( M7 t* F% LPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
9 G7 ~* q2 i' Q" @+ N  U% v9 t    Me.sktServer.Close
9 y- W. L: Y- D0 }- @5 c+ O8 R    Me.sktServer.Accept requestID
End Sub
+ X$ d+ a2 r& o8 V# }1 H3 h) m) ]0 D& M( p
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
* z& P- |5 L3 R4 X. I1 R    Dim Buffer As String
2 k- e1 S! f) H    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
: Z. \* |  q. e8 _& B2 g9 Z( ]End Sub