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

生于青春

Option Explicit
0 ^# i7 W/ `' @" K! ]: {' [- h
* u$ n- u  A0 ~; n2 N; qPrivate Sub cmdListen_Click()
" d4 y. V  L  y: c) p    Me.sktServer.Listen
End Sub
; e0 w' I0 Y- ]# L! K- b1 H4 M
Private Sub cmdSend_Click()
' J* o7 @! k5 p. O( @    Me.sktServer.SendData Me.txtSend.Text
End Sub

Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
4 p, m/ q3 y' m' I5 S9 b+ OEnd Sub

Private Sub Form_Load()
& L! t, D9 N+ p- P
End Sub
1 B+ k5 I* S8 n, t; h$ c! t% C
: f$ f8 R3 M4 {# Q9 KPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub
" d2 S; i- B) u2 ~% o
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
( r2 K0 D% S! t- H. c  X    Dim Buffer As String
    Me.sktServer.GetData Buffer
3 x! x% _! h) T" C# d  H' _    Me.txtReceive.Text = Buffer
End Sub
6 |* o8 l0 d4 d( s4 H6 S