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

生于青春

Option Explicit
+ I0 y' d. L! k6 B! i, l9 N
0 c. O7 ]0 g0 ?. i0 z* XPrivate Sub cmdListen_Click()
+ I( G1 K/ e' m& F1 Q    Me.sktServer.Listen
End Sub
) H% s* h* W0 l' Q, Z( N
3 l: Z; k$ g0 Y/ Q( l1 r9 iPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
( L4 r- K# ^! o- Z2 p. k# IEnd Sub

  d/ s" b4 {! p2 c6 A0 x  ^8 L4 lPrivate Sub cmdDisconnect_Click()
, K) ^5 _' I( [) @! K    Me.sktServer.Close
End Sub

Private Sub Form_Load()
1 f: T6 f7 n* u+ a# C; `8 l# W8 Z+ G
+ C" r$ @' m4 [* }# a" M  OEnd Sub
0 K3 o+ K  M% a1 c; u3 t) L
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
5 |' \$ h3 N* x, z  M" K    Me.sktServer.Close
9 \- Y1 m4 {; I( I, }% x6 e; Q0 A+ f    Me.sktServer.Accept requestID
* d, U/ D0 P  T# f3 O- Q+ kEnd Sub
! q2 G" G- ?# j
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
5 O$ ~' P  b$ Y1 k9 Z    Dim Buffer As String
0 u3 }8 s* z  v- C/ t    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub