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

生于青春

Option Explicit
# O+ |! s& k( J! @  r: O3 y
# N4 ~# {8 n5 u" a  hPrivate Sub cmdListen_Click()
/ v4 O4 S  {6 [: D8 \" ~) o    Me.sktServer.Listen
6 u0 R) |2 |# {, e$ _, NEnd Sub
, v7 ~" |; k7 A  p+ u9 h
Private Sub cmdSend_Click()
1 w# E8 h% a+ ?' d1 a    Me.sktServer.SendData Me.txtSend.Text
End Sub
5 |" R7 m" U. N0 f
Private Sub cmdDisconnect_Click()
; L! {; c7 ^! }( ?0 B, k    Me.sktServer.Close
End Sub
6 r  r! E& C6 g8 ^" z" r) H* ?+ {
, @+ ^' @8 m" r1 w' qPrivate Sub Form_Load()
) z# s, n6 O6 A
End Sub

5 V3 X  j+ `! N5 `$ v2 q: ?+ v2 _5 \Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
3 k' n; ~. [8 ?/ E/ ?; I4 M    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub

, {0 \* @5 M2 l' d: Q- X  tPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
. l) i4 B0 R/ y3 e. g    Dim Buffer As String
    Me.sktServer.GetData Buffer
! H0 ~" e4 u  P5 _, y$ q    Me.txtReceive.Text = Buffer
2 ?  i- C: J8 d: s! q" u) sEnd Sub