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

生于青春

Option Explicit

Private Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub
9 O: e7 Y: I/ s0 Z. o3 m/ i
Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub
! }8 a& e  K, H/ \0 E
& N% r- H* w6 \% E2 G5 B# tPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub
: W" U! r: v' h- B" M* d& F5 b
Private Sub Form_Load()
7 Y4 i. y: s% z5 a2 v& u& e
End Sub
/ W* A2 N  Z" e0 E& d$ t
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
  f0 K# ?8 @8 e    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub
3 U& Y; s4 c! I+ F( Y! N# R' g( V* b% T
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
$ L& F! e( ^5 e    Dim Buffer As String
& d% O, }" c! Y& D5 a    Me.sktServer.GetData Buffer
! F* ?8 c' ]* f& r    Me.txtReceive.Text = Buffer
End Sub
# q% ^' v0 C3 A( _- w