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

生于青春

Option Explicit
2 o5 R  ^& Y0 g/ Y
8 J$ I4 y" z8 |! a- ePrivate Sub cmdListen_Click()
    Me.sktServer.Listen
6 D6 v' Y1 g, Z8 S, h- gEnd Sub

Private Sub cmdSend_Click()
. H7 o( }1 q) F$ T( T    Me.sktServer.SendData Me.txtSend.Text
" R  F+ _3 U% U" Q# @+ Y! D# N" OEnd Sub
1 e% ~/ P! Y5 t- o
; X$ m' {* C' Y2 l0 G8 `Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
6 t/ V( r8 T4 s1 c4 H" ?" Z3 s6 YEnd Sub

Private Sub Form_Load()
( y: R, }$ c0 C& j
+ o4 i" U2 T1 H9 V- KEnd Sub
5 o0 n- k$ P8 C
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
% f" s2 c: X, }" P; n. o    Dim Buffer As String
    Me.sktServer.GetData Buffer
6 S3 G/ d3 w1 e( b% e) s9 H    Me.txtReceive.Text = Buffer
9 N( F& V7 L! J' T1 P0 d  vEnd Sub