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

生于青春

Option Explicit

+ W' b0 {: A3 M- y7 F8 _* IPrivate Sub cmdListen_Click()
" Z2 r5 ]- K- P) [; O9 H! Q# e    Me.sktServer.Listen
End Sub
  W7 a: }. f. ?7 I  E
Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
! V9 q, A5 e/ P, F0 hEnd Sub
- W. W) D# u5 P) t0 y9 B
Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
9 ~, @2 r7 A! T; R$ Y/ Y- m8 }" K+ Z! zEnd Sub

! Q% ~/ a" }, C' n( U. l& a* B% rPrivate Sub Form_Load()

  |; A* P" ^. y$ xEnd Sub
0 ]3 O. {: }& s6 h2 Z0 H* f& ^- B& }
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
  S7 L8 n3 ?# s+ G' }' n    Me.sktServer.Accept requestID
End Sub
1 l: |: S; b7 g6 F
& j3 ^% r8 I5 h3 a) ?( d- o  tPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
8 ~& U6 t' `3 }, {" D) ]4 r+ p    Dim Buffer As String
* I1 y# P% F  G4 @6 A( `+ q# Y' G    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
- q7 L$ d: e$ rEnd Sub
6 s  O& k. T! e+ m) }4 L