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

生于青春

Option Explicit

" i* ]9 T, D& I" ]) J* KPrivate Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub

/ W0 I" V! A% o4 Z* e( ePrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
# G4 ?" {9 n: Q( \. g+ y, qEnd Sub

2 s& n: a0 u; J8 l8 s" Z+ L' ePrivate Sub cmdDisconnect_Click()
: J: M1 H' C: K! _+ E    Me.sktServer.Close
End Sub
" j4 j9 m6 a  n
Private Sub Form_Load()
# z* J7 G  N( u* S1 k4 D
End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
    Me.sktServer.Accept requestID
6 b# R+ t/ J5 p' E9 E) aEnd Sub

6 d( j0 L( }  F. r8 ~Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
/ V" t- d3 c( v! M    Dim Buffer As String
    Me.sktServer.GetData Buffer
' S9 `- {; B; }( o    Me.txtReceive.Text = Buffer
/ B/ S4 A6 ~7 L( f& BEnd Sub
7 Y2 e6 N. M) o1 z, S