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

生于青春

Option Explicit

$ H5 s4 K1 C, x' O* cPrivate Sub cmdListen_Click()
    Me.sktServer.Listen
. c- l& o- v5 s- |+ H# s) @End Sub
8 r. v! {3 ~$ l  V, a: J
% x5 A$ T4 g5 i3 y% N: y. dPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
; P4 G" h8 @: N+ R/ G9 J$ TEnd Sub
! x- q& e' [# O! C8 W
0 g% |; r3 x7 bPrivate Sub cmdDisconnect_Click()
" i0 G  d  F# t    Me.sktServer.Close
3 j4 l% Y0 L4 L, J5 F& BEnd Sub

Private Sub Form_Load()
# l1 s& @" x2 c5 x
1 J$ P$ @* O" W; ?% m! Y3 t( CEnd Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
9 @9 f% x4 [& y) e3 i: z    Me.sktServer.Close
( D1 O4 x! f5 w# `1 `    Me.sktServer.Accept requestID
1 i5 F$ \0 |* WEnd Sub

4 i+ F$ u* c6 D0 A) W7 d" E& yPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
4 |6 t. Z" D# z5 f    Dim Buffer As String
    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
) t- w" T4 s/ Y* FEnd Sub
0 K, t0 ?8 u: h+ F