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

生于青春

Option Explicit
9 Y/ Q5 w: z2 A3 v) B! h/ G
Private Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub
" s. |4 h  t: W0 s, W. Y8 o: u
( Y7 B& b5 t; k. h* aPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
- t0 J/ W# Y: SEnd Sub
" J# ~+ A; x& @5 `  Q
Private Sub cmdDisconnect_Click()
1 L# N' N5 m: Q% \    Me.sktServer.Close
' p0 S1 K4 i3 D6 N$ h: A: qEnd Sub
" v  K. [, R1 [' x0 j5 ?: N, ]
Private Sub Form_Load()
5 H# f/ V) ]1 h+ V7 P
- n+ D8 e( ?; V* V/ AEnd Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
9 j; M, e# k( X+ q" g9 u    Me.sktServer.Close
- p% i, m5 b4 e. @. d" u) Y    Me.sktServer.Accept requestID
! i' U( m: w& e- OEnd Sub
/ @/ J+ A' ]9 ]; v, D5 l
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
, |: U: ]& A, [. P) O    Dim Buffer As String
# G, e/ D' o, L0 k. v( j9 Y$ E    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
6 t. T" z% J4 lEnd Sub