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

生于青春

Option Explicit
" l! I+ v! ^5 E
Private Sub cmdListen_Click()
' K  P9 J6 V$ l0 \4 d    Me.sktServer.Listen
End Sub
0 q0 Q# l& z2 G+ ]( W- N8 O- {- W2 g
Private Sub cmdSend_Click()
1 v5 ]' l2 r) D: l* E: H( R    Me.sktServer.SendData Me.txtSend.Text
; {- ?7 y1 Y# q8 C4 n# }& NEnd Sub

1 }- g; \0 Y" m7 zPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub
- U" o# J) p! x( F/ g: }* s
: Y1 g! {5 T0 S  R- q$ C/ APrivate Sub Form_Load()

: l  L4 O: J/ m/ rEnd Sub

* `' W) }  d4 w! L+ N6 VPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
* N3 f# ?  ~, A) Y' g6 v: n    Me.sktServer.Accept requestID
End Sub
$ k) L$ ~8 T) ]
3 F8 {4 i# _; ?Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
- |, A1 {8 ~( [7 g    Me.sktServer.GetData Buffer
; _; h: X* {- b& R& j3 f    Me.txtReceive.Text = Buffer
End Sub