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

生于青春

Option Explicit

Private Sub cmdListen_Click()
* Q1 @! T4 M0 {    Me.sktServer.Listen
1 T  Z& c! V7 R, j' d( B; \End Sub
- j) a& D) Z  B& ?
* y# u6 j! K. w# i2 B8 V/ Z- kPrivate Sub cmdSend_Click()
" Q1 e4 U- b1 L" p8 M" `/ o    Me.sktServer.SendData Me.txtSend.Text
End Sub
( m1 j2 m$ |0 `8 b$ A& q6 T9 D+ W
5 L7 R; l1 x3 ]9 v* Z8 U3 uPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
; x; j1 Z$ u. O- z: T8 e5 MEnd Sub

* m/ T( j% K! K/ z& j) Y% ]: @7 gPrivate Sub Form_Load()
2 {- D) h! L) b) |) g$ x: c  o
End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
2 @- ?2 e& t0 Z/ l: M    Me.sktServer.Accept requestID
End Sub
" {, i, V1 B, ~+ R
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
& V$ r$ L: |" l- m# J. w# G, e    Dim Buffer As String
# I; L- z4 V; g1 r    Me.sktServer.GetData Buffer
1 [( r- B! `# |' a    Me.txtReceive.Text = Buffer
, v  P' T2 x5 ~End Sub