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

生于青春

Option Explicit

0 h' S, A. J" c3 }Private Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub
2 J. @( |* g: ~2 e$ b! w% M
Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub
- j" o' V. }2 {# G  |9 D: b1 e- [+ z
* |3 F7 \2 m. H7 {- y; [Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
4 J/ r4 G0 C! s: b' A$ j* @3 nEnd Sub

/ F( Z; C; r: {. j9 ZPrivate Sub Form_Load()

( P3 h$ n' u8 Z# ]End Sub

5 p! b4 P. i5 r7 ?Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
) x9 K4 p3 P9 i: h    Me.sktServer.Accept requestID
End Sub

5 b) `+ C+ B) D, k2 ]( UPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
. U9 p  r5 R( q' n. g$ s# J( Y    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub
! b% z+ |9 p% w; ]