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

生于青春

Option Explicit
; R4 n& Q- X2 D; R3 U$ Z3 X
/ f5 Q: M- Y1 y0 n! D8 dPrivate Sub cmdListen_Click()
6 x& N+ V9 U9 y    Me.sktServer.Listen
/ _( C9 a9 P  C3 dEnd Sub

+ y% a& H* {$ w, z4 a, L8 CPrivate Sub cmdSend_Click()
4 F+ w( |, c1 x2 T8 F    Me.sktServer.SendData Me.txtSend.Text
5 _8 W1 \$ R# y6 y: I& \: p+ @2 PEnd Sub

Private Sub cmdDisconnect_Click()
- i9 t' \% U- g& W    Me.sktServer.Close
End Sub
( \9 t5 b8 f0 ~- }0 X6 _0 n
Private Sub Form_Load()

4 |3 q0 O" E8 h$ ?: K+ ^& ^* dEnd Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
' o3 ?7 r' B% ]# c7 F3 I; x    Me.sktServer.Close
4 S* n6 g  N7 g; r" ^# I8 j    Me.sktServer.Accept requestID
! z* y5 t; R6 U1 PEnd Sub
. l) c$ F' |7 }; W+ j- z
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
- T: T0 l/ r/ t' i    Dim Buffer As String
    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
; c% u! F4 }! `End Sub