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

生于青春

Option Explicit
1 Y; T6 o6 d' a% C% _
. N' L8 k% {% v( h4 W; P, [, IPrivate Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub
6 e- @0 `; F: |& e
/ L3 W2 ~" Y# V" @( OPrivate Sub cmdSend_Click()
7 o2 r# m" ]- b4 G- |% C2 H% u    Me.sktServer.SendData Me.txtSend.Text
" e+ \: M+ e" j* GEnd Sub
) W) [0 J7 q) _$ e# \; {( |/ X, r
7 }1 X4 h% ~: X9 Q3 MPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub
( i8 c- i  ?5 y. \) o
Private Sub Form_Load()

1 _+ I& g0 F, P0 cEnd Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
6 V' ^, K. e3 T! b. w  J    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
: D: O& G! T: q0 B2 w0 r4 _% t    Dim Buffer As String
3 I# ^7 U  k2 w6 j7 w# |! y+ b    Me.sktServer.GetData Buffer
# x/ R0 t1 e" O' {& m) {) V    Me.txtReceive.Text = Buffer
End Sub