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

生于青春

Option Explicit

. V3 Y- I0 j0 zPrivate Sub cmdListen_Click()
$ z1 U; u1 F  o$ C+ M    Me.sktServer.Listen
4 V5 \4 m. y' O7 iEnd Sub

Private Sub cmdSend_Click()
& e4 p0 l; ?6 H3 H( K$ F1 g: b& E    Me.sktServer.SendData Me.txtSend.Text
8 K: s! \& ?. L9 r2 @8 `End Sub
4 b/ f. K+ J0 t0 P/ p
: s. m# H) n7 V8 E! @Private Sub cmdDisconnect_Click()
: E' V6 A, `0 {/ g1 e/ a% O    Me.sktServer.Close
1 ~; r# e4 \1 A) e9 _  Q% dEnd Sub

Private Sub Form_Load()

2 j2 p' ~' A3 O; D; M' C2 h" [/ ~' lEnd Sub
/ f3 g7 i1 _0 ~3 ]% R* C
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
! l. z* g, X+ o: [' i    Me.sktServer.Close
    Me.sktServer.Accept requestID
; u* \6 ^, p( d+ UEnd Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
5 r; O8 W4 u4 }* Y    Dim Buffer As String
    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub