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

生于青春

Option Explicit
( H1 B' e; i! N: m* g5 b! G
Private Sub cmdListen_Click()
    Me.sktServer.Listen
( E- n0 ^' Y7 _3 Z8 B' z  E9 u; sEnd Sub

- ~. @4 [& Q% q' X1 A6 I6 bPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
8 R2 J( {9 _: o/ r* k' KEnd Sub
1 i0 I  \+ T" O0 A! x5 x
# x  ^! N8 G$ ^# B4 wPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
8 M0 k+ R" a: m" eEnd Sub

+ u! k5 s) x! k. Z3 ^& ^% OPrivate Sub Form_Load()
) C: m- L3 v! O  j4 ]2 i# J6 {
( I4 ~9 ~, w+ T0 L) {/ _8 FEnd Sub
" ?! Q7 ~8 m. C' E& F! Q6 e' L
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
* y% Q- G3 V" O    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub
5 I: R7 M+ b6 p8 ?; k$ W
. `+ n& y. [% V0 j3 a1 O8 V6 ^Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
5 s  _* M, a) P- T/ S6 a9 J$ E    Dim Buffer As String
    Me.sktServer.GetData Buffer
# u+ @% [; J9 I; l* i! J    Me.txtReceive.Text = Buffer
End Sub
- P5 N) S; Q" t, ^, n% ]/ \% ?