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

生于青春

Option Explicit
- ~1 g" ]3 ^; n$ u  P0 H+ C) Q
! Y/ V- `6 h! |- }% Y) S& s7 UPrivate Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub

. H8 i; w' ^% g% U9 rPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub

1 l* C! T. q2 T1 F! hPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub

Private Sub Form_Load()
3 Z0 Y1 J5 j( n4 L0 W* V6 ]
End Sub
% h$ G' \0 G  {$ `
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
6 C" q; B1 a! |. O+ k    Me.sktServer.Close
    Me.sktServer.Accept requestID
, r& P0 r* y' R: m9 A2 b/ HEnd Sub
/ \: }. e& M4 Q
& o& ]* c3 x/ ?' \6 w  q; l+ ]+ @1 WPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
+ P+ |) |$ k5 A, n9 ^' g6 d6 h    Dim Buffer As String
9 y) I* h2 i: C- l( B8 ^1 i1 o    Me.sktServer.GetData Buffer
* Z: _7 _" ^: H- g1 H    Me.txtReceive.Text = Buffer
) e4 W- s1 R4 N" x; o2 S& U- {End Sub