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

生于青春

Option Explicit
3 i2 Q  ~2 |' J! C. {2 `
Private Sub cmdListen_Click()
0 x, Z0 t! T0 H  i  x- H* m    Me.sktServer.Listen
& K' H5 y2 H+ j+ n* _- l$ OEnd Sub
) b& F* q! Z! j. ~
Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
3 y3 V& I, [' z1 q8 t3 [End Sub

Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
! P6 p( t4 D0 A- O6 ]/ eEnd Sub
4 p+ k1 z# x3 k% X8 f
2 Q8 L; R9 M: U! Z5 d0 P% xPrivate Sub Form_Load()
, |3 J) l# L0 M$ I2 k) Z
End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
0 Z  r" P- P0 i" n( F' l    Me.sktServer.Close
    Me.sktServer.Accept requestID
2 ]! m! }/ I& Q9 L/ P3 p% A2 dEnd Sub
* [' O. Q$ o9 r( Q7 a$ K
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
7 }  O- }* Z3 s% P, U! M    Dim Buffer As String
    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
! q$ R2 E! R/ t7 J& pEnd Sub