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

生于青春

Option Explicit
/ K" d, K2 V' k' J
( ^8 M6 h' i1 q- s7 [: e5 DPrivate Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub
$ z+ c; w$ L7 g4 v' Z
/ _% p/ t. _& U4 f# a1 I% q7 tPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub

8 ?- x  D" o: v0 t6 v) c  O7 nPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub
% f5 T: Z; w! J" A. H7 x: o5 Q
Private Sub Form_Load()
3 ^0 q* s' m7 _/ S* [1 Z
End Sub

+ P6 ?; u% _, J5 y" @: b0 B! Q' VPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
    Me.sktServer.Accept requestID
4 ^: R8 R! H* u6 B2 J+ C, mEnd Sub
; r+ ?- e  N# U( [. T3 n8 Y% l
" `7 z* b* b+ P3 ^. @- D' X# uPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
: @7 `/ |" |8 F8 h    Me.sktServer.GetData Buffer
! W# f8 d( u2 j- ]# G; C2 J    Me.txtReceive.Text = Buffer
- ]$ D: F$ f7 D" J8 E7 ]End Sub