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

生于青春

Option Explicit

Private Sub cmdListen_Click()
0 p# a& x  a5 y5 Z: u: c6 ^) q    Me.sktServer.Listen
" u4 V  s; F) {End Sub
* P+ }# e- Q8 v' E
Private Sub cmdSend_Click()
5 \; V9 ?' f+ Z! E# g    Me.sktServer.SendData Me.txtSend.Text
5 E  l) s3 C" b, W- f5 Z) ~End Sub
/ |6 d! E7 o3 F; q4 k
' }9 l) t$ M! n0 f, Y! i& ePrivate Sub cmdDisconnect_Click()
+ V& y/ M& y& k8 |% `    Me.sktServer.Close
. ]+ g% o, p# J' J( h  CEnd Sub
! Y, k* \( N8 V* O( a  |! s/ [- Z+ g
Private Sub Form_Load()

; u* `- ]- q" J& H7 ?End Sub

, s8 x1 g1 W3 }Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
    Me.sktServer.Accept requestID
! \$ G& ~0 e3 Z& fEnd Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
5 _2 B+ q4 o5 B  S( c- f    Dim Buffer As String
$ Q& D2 [9 u3 s, n5 h4 m    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub
4 G* j" A. y4 [, ]- O& m