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

生于青春

Option Explicit

Private Sub cmdListen_Click()
4 _* s3 o3 G8 H. U$ ^    Me.sktServer.Listen
) O7 s. x* i8 fEnd Sub

  \6 H) p# m9 h" k$ J8 D- g+ CPrivate Sub cmdSend_Click()
0 T) V: J6 I% U1 R, a. y9 n    Me.sktServer.SendData Me.txtSend.Text
End Sub

Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
& U' r, D* ^1 s1 vEnd Sub

; @: V0 L; u! ~5 \( ~+ |$ w4 P4 bPrivate Sub Form_Load()
; @9 ?3 o% v! f* g* l; a! n% Y
End Sub
- S0 `% n: }% Q: N5 d% O
1 ]% h) z. q# D( E' QPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
/ Y2 q* I8 p( `- j    Me.sktServer.Close
    Me.sktServer.Accept requestID
8 ?: J1 {* z# @+ A! T! o3 j! YEnd Sub
6 Y5 i4 Y( Z. a0 N( Z4 R/ T9 U7 [# T
% f* k1 q; t$ X) RPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
6 G# _* W5 z' N) _5 e* \    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
4 @2 w, J$ q  n( x: ?" J7 OEnd Sub
; k/ H5 B4 v% x& L( t