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

生于青春

Option Explicit
' o& X! F# i1 T& t% ~5 N, B
Private Sub cmdListen_Click()
. }6 O$ x0 v8 G4 _. L    Me.sktServer.Listen
, x7 X& W' L+ L8 W0 T4 j2 _End Sub

Private Sub cmdSend_Click()
1 k- v5 A0 t- G/ ^& w    Me.sktServer.SendData Me.txtSend.Text
End Sub

# T0 H/ W: I* fPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
2 @% |  ^4 ?" Q$ W7 G2 a# s# WEnd Sub
4 p  e' Y4 b9 Q
! L, r# l/ A: ^$ b  VPrivate Sub Form_Load()
) K, k  Z# s6 ]3 r
" d- f( D2 ]: EEnd Sub
8 e0 u7 _3 L* A8 Q* U
1 f7 \; I$ C; H  p, A# i! nPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
6 X+ V2 a. [! W    Me.sktServer.Close
$ y# S1 Y$ b4 R' ?2 _    Me.sktServer.Accept requestID
0 u' r! r) V! F( M3 @# l" CEnd Sub
, Q. n1 f' n! C5 l! X
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
; E  P; X$ w, Q8 _4 m$ x$ t( q    Dim Buffer As String
    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
* ^7 k  E$ d5 N0 d4 v0 L+ BEnd Sub
% I6 ^( {  M! v( d6 S& h( }