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

生于青春

Option Explicit

Private Sub cmdListen_Click()
( D; P( z' L, s  O! y    Me.sktServer.Listen
% B4 S  |6 X5 h3 w2 CEnd Sub

0 C8 [- ~) g4 G% G# Z( z9 w3 cPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub

Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
8 j4 u! F: y" j' S9 Z: p0 nEnd Sub
# I6 Y5 A2 I" R9 }
Private Sub Form_Load()

5 R4 g! v% L5 r: S0 pEnd Sub
/ _9 f0 r$ @9 [6 p2 U
5 S6 p" a/ E( kPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
. i5 j- O* F9 q5 S4 y/ X. `1 f2 x    Me.sktServer.Close
& W9 F" F4 b- M: F: J' K    Me.sktServer.Accept requestID
* U( x( l8 [" Y; nEnd Sub
, [" t$ z! j& f' n0 U% Z: P
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
; [$ l. k1 P8 s( V! F    Dim Buffer As String
    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
1 N0 B" v. D3 T& u6 ZEnd Sub
9 c0 F, a- n* Y0 a9 B