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

生于青春

Option Explicit
/ I5 S% W: W. V. l4 l+ Y3 i- S1 C/ J
& V" i. f& m: x% x5 G+ ^- B7 Y( hPrivate Sub cmdListen_Click()
; `3 J! M# V0 l$ {6 w, y    Me.sktServer.Listen
/ r/ A, r: b% \2 T8 Q5 Y/ }2 eEnd Sub
) p/ ], F  A! R3 a. ]# {
2 A# v7 p1 `; k9 t2 zPrivate Sub cmdSend_Click()
% k+ d# M+ ]7 @$ ~) Q    Me.sktServer.SendData Me.txtSend.Text
End Sub
- O' b' s7 a- h9 \
Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub
0 c. X5 {2 p7 G
' T( z9 J4 b+ e) c6 j2 u- }Private Sub Form_Load()

End Sub

8 r1 O& S5 n; B/ o6 a4 W" P) ^: n; WPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
( g9 U7 A; H7 E- F    Me.sktServer.Accept requestID
* o, M6 Z6 U) V1 ]! T( N4 a2 JEnd Sub
/ p* {' B5 S  `* \8 P& N
8 M* L; `( S$ j1 V+ T& XPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
# I$ S- S0 F# V8 D# ^End Sub
) R# P5 t8 x( f1 g# T+ J( C9 P