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

生于青春

Option Explicit
* I% ?0 K0 ^! K+ z1 w! _! X. q+ Q
Private Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub

6 q% q( J4 O. t8 \Private Sub cmdSend_Click()
6 p! E; Q. u- ?$ C    Me.sktServer.SendData Me.txtSend.Text
End Sub

( V/ o; S- [, }% CPrivate Sub cmdDisconnect_Click()
) Q( r" }' G+ U    Me.sktServer.Close
- _5 k& {* Z. C2 U/ e* m6 ^6 NEnd Sub

Private Sub Form_Load()
0 t/ S& f9 E" k' X4 m; `7 h# s
End Sub

5 G( X" I& t- J5 G* YPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
- e  I" K# O9 e8 [# q( ^: G, c    Me.sktServer.Close
9 H1 b" ~7 z4 k* q) o2 o. C    Me.sktServer.Accept requestID
2 L( y9 B$ x* ^, tEnd Sub
) Z, y! _  j8 l/ Z' J
+ ]" L- k/ ^' k$ m; J: ]: ePrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
# L. O% G! u+ o2 e5 Q    Dim Buffer As String
" [4 v. W' ~  s$ |    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub