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

生于青春

Option Explicit

( M) N( B3 B0 Z% y" JPrivate Sub cmdListen_Click()
# ^; v0 ]' o# @) M: }4 r  T    Me.sktServer.Listen
8 C. E( J3 l: G7 q3 u1 F; hEnd Sub
2 s/ M; D/ X4 g5 o, z8 H" @9 i
( p( i+ p7 ~( F. B3 y; C. K& YPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
* A& Y1 x" o6 U5 ~) M! fEnd Sub
7 ?  h, z7 w# \
  W& c! j4 i% P+ W( U9 Z# h7 QPrivate Sub cmdDisconnect_Click()
1 ~- P4 ]. P2 s4 I    Me.sktServer.Close
End Sub
4 S* @4 _' Z$ d% `& }
' {) s4 d( `5 u% _2 B9 U5 oPrivate Sub Form_Load()

End Sub
  r; S( J0 e3 C0 Z
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
* o: [: \  P* G    Me.sktServer.Accept requestID
End Sub

: Q: [* O) J" N2 sPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
9 q) P, a3 a0 g    Dim Buffer As String
1 ^5 A% B1 ~6 h# B' {    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub
4 d0 j$ O$ l0 n& F