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

生于青春

Option Explicit

Private Sub cmdListen_Click()
3 a1 F, T& n, k/ `; ]    Me.sktServer.Listen
* p% D1 o. w& E. J. f( H4 sEnd Sub

Private Sub cmdSend_Click()
0 @  r/ k0 _1 W1 ~- X" M    Me.sktServer.SendData Me.txtSend.Text
End Sub
7 F7 w+ F" G: E+ p2 k- ]
" l  @% ^# f9 B* \/ iPrivate Sub cmdDisconnect_Click()
6 Y. k, B$ ^  x# n7 z* T    Me.sktServer.Close
End Sub

Private Sub Form_Load()
1 ~8 q3 Y" f( j) J4 ?) r
3 o1 B" P( w. A' u+ D! iEnd Sub
6 D9 M) U+ q2 x! I# c. Q: D
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
$ ?2 E+ p% @) R* l% d- ^8 V: d    Me.sktServer.Close
% C# M; Z  ^+ v( \    Me.sktServer.Accept requestID
4 O' {- L8 m- R) Z/ o$ I, @- H4 dEnd Sub

- l1 T% I8 q3 `4 k# s4 iPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
8 @" @) y# }) V0 w% w    Me.sktServer.GetData Buffer
9 j5 C! Q' S. M; \7 _. S4 l    Me.txtReceive.Text = Buffer
8 {' T' \; t8 ]End Sub
) z, C8 O& u) I6 r) k+ M