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

生于青春

Option Explicit

0 s$ I5 J: ^9 d* C' X3 r1 n) }; OPrivate Sub cmdListen_Click()
/ h, Q# S3 N) j    Me.sktServer.Listen
- c; `' w' w  E1 B; `End Sub
* j% b& r7 q+ |4 d+ ~+ F' v5 m5 `
9 E- x/ p3 D, a6 fPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
/ d$ F; `0 c1 x, q, b% OEnd Sub
% |' o! \8 h. [- C5 F2 F
Private Sub cmdDisconnect_Click()
, z! O  P8 t  S! ]7 f    Me.sktServer.Close
$ J$ b- j+ E" w5 eEnd Sub
; k; x% K' u6 s+ D0 `
Private Sub Form_Load()

End Sub

( E3 e* L, d: q" B% xPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
) a' x, e' k3 F% V- n" v    Me.sktServer.Close
    Me.sktServer.Accept requestID
0 J2 t  l$ F' I( L% E& vEnd Sub

% m3 w' n! A" o8 h3 hPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
+ j' |" o9 L. A: `5 s+ o; Y8 U    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub
( n+ r7 Z8 r6 Z; `: k