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

生于青春

Option Explicit
& B8 g: K) ^5 }0 i6 a) D, ^
Private Sub cmdListen_Click()
9 ~' y* D3 P- y' G# e( o    Me.sktServer.Listen
End Sub
6 g, z) N) D! p3 r; Z% p* [1 X
Private Sub cmdSend_Click()
7 Q- R8 _1 d, {- H2 O    Me.sktServer.SendData Me.txtSend.Text
End Sub
7 Y7 Z5 a. i& x7 O/ y
3 E, D& L: L3 L1 y% H; }/ E/ dPrivate Sub cmdDisconnect_Click()
# _$ S. N5 @1 O& ]    Me.sktServer.Close
4 J& Y9 Y* p' z' u5 `End Sub

* }: e- p. O2 ZPrivate Sub Form_Load()
4 a" N6 u1 |$ z  [3 g* E$ T
End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
: f. p" z5 f. b* d    Me.sktServer.Accept requestID
1 W; z. s& |% w. c% H- qEnd Sub
" T) f  E# i: i* \/ r; t
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
, B. x# a+ ?2 O+ m, w. `# S! R    Dim Buffer As String
$ n' E7 l: v4 R% N1 O( k9 I    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
8 V9 E8 @9 z, R* E$ rEnd Sub
8 Y# S4 y$ z7 e7 F