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

生于青春

Option Explicit

; ^/ K  p: t, \4 |9 Z( t" Z, uPrivate Sub cmdListen_Click()
, n& K# e- H. K# S4 H& Y    Me.sktServer.Listen
End Sub

5 |7 h: \; u4 |) ?# i7 _" o- yPrivate Sub cmdSend_Click()
6 ~  G) j8 \3 [& C: l: C    Me.sktServer.SendData Me.txtSend.Text
End Sub

Private Sub cmdDisconnect_Click()
* d8 {: T* G8 \7 T6 q6 p3 ]    Me.sktServer.Close
End Sub

, g0 s( @& x& x# fPrivate Sub Form_Load()
1 C/ Z  J5 T7 T  K
$ S3 A2 W, h. v+ C$ fEnd Sub
( p, w: v" q5 C# g9 n* [* v
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
1 S! C+ b5 |0 j9 w9 Z, y$ r& B. S    Me.sktServer.Close
  E$ A4 M0 L8 o" k: |! d1 o! r1 u5 j+ h    Me.sktServer.Accept requestID
. i- Q+ K4 g) FEnd Sub
4 Q' |% Y7 j( U- C0 C9 Z3 U" S: _
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
- o( v& M* ^& c0 z7 \End Sub