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

生于青春

Option Explicit

Private Sub cmdListen_Click()
( i) s5 d( P$ l2 O7 D    Me.sktServer.Listen
End Sub

Private Sub cmdSend_Click()
; f+ ?9 E% Q; \3 F0 y5 k    Me.sktServer.SendData Me.txtSend.Text
7 u4 j/ x- Q5 e, r+ Y7 wEnd Sub

- p. O1 u9 q# [Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
, V0 t; I$ j! o1 @$ d. [; T6 YEnd Sub

Private Sub Form_Load()
# L) G5 H; w' e, \" p5 K- _
4 O6 t$ G$ @9 P$ {9 ?, lEnd Sub
4 E  Q. r1 E. [9 e1 }" U" e
. L0 R/ q  y, u  wPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
    Me.sktServer.Accept requestID
& \( j" V) i0 F8 `. z5 pEnd Sub
3 m( x" N& @6 S6 {, T- L) ~
$ E/ H$ s/ z0 W8 MPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
2 ?; L8 c8 ~# T* z0 N5 J    Dim Buffer As String
% u- U$ y' H! [1 x0 f, Q; N    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
: a6 l; y  j4 l# WEnd Sub
8 Y. `" ], d% c4 m