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

生于青春

Option Explicit

# R* W5 _0 i' M! Q# y+ v" ePrivate Sub cmdListen_Click()
5 u' O1 x6 ?- Y. w" t    Me.sktServer.Listen
End Sub

Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
1 t9 v" i) R# E" z% p% J3 pEnd Sub

& }0 X5 O  n2 ^# TPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub

0 F( }3 c$ L+ h; t! tPrivate Sub Form_Load()
! Z) O5 e" e$ Q: W7 Y: q
& U; A0 i8 n1 T$ I- |0 k  bEnd Sub

- C. Y% r0 w) d: wPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
5 U) z" Y# g$ s: ]1 \% `    Me.sktServer.Close
! p$ ~4 l5 r5 u5 t5 v2 d2 B, a8 a    Me.sktServer.Accept requestID
* u  z& w0 ]8 ~4 bEnd Sub
+ `; |* d  Z& w9 g2 ?! y5 i
+ n, Z/ S, h& m0 ?Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
+ E# O4 N% O: h* B% S) z    Dim Buffer As String
    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
# f' w+ B5 s; j+ O. dEnd Sub