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

生于青春

Option Explicit

+ |. o; D+ H( X$ {Private Sub cmdListen_Click()
. `7 l! F1 A3 F1 p    Me.sktServer.Listen
; K4 ^0 S  A6 m9 K  X1 J% aEnd Sub
5 }$ m2 F6 M- y" _( V0 P5 L! @9 Y
Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub
( c* A9 \1 Y5 D; j
' |& A4 j; S9 C5 D. U3 q" V! P5 s4 dPrivate Sub cmdDisconnect_Click()
8 r  X% F3 G6 \+ }5 v5 O& j    Me.sktServer.Close
8 j8 J9 c1 z5 _: ?: u$ g+ W. kEnd Sub

Private Sub Form_Load()
1 i( G% a+ A9 j; h1 ^1 c. C  Y$ e
End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
1 S/ C" s- H; r! I/ q# }$ m    Me.sktServer.Close
    Me.sktServer.Accept requestID
' o, N1 g! x1 p% t6 g1 A% UEnd Sub
- J" |, n. M5 x  U% s1 X. a
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
* |: K5 D' l5 T: ?: M    Me.sktServer.GetData Buffer
: b8 B- [& C3 T" c$ a    Me.txtReceive.Text = Buffer
' Q  L5 y! [7 tEnd Sub