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

生于青春

Option Explicit

Private Sub cmdListen_Click()
* M9 |# Q% `& J" Q    Me.sktServer.Listen
, D' w) F6 B# k$ k$ q3 @End Sub

: m% l& s; S4 ?$ r4 vPrivate Sub cmdSend_Click()
8 X! j/ g  h7 L$ B8 ~    Me.sktServer.SendData Me.txtSend.Text
& O/ Z9 r3 y/ H2 K* `End Sub
2 A. c, g4 m7 D+ ~7 ~! f( c# ~1 d
$ ]5 A# ]& s) ~, [. o( OPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub

Private Sub Form_Load()

5 T5 E' n$ j. |# I) I5 |, tEnd Sub
# M" i: Q$ ^6 Y
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
; X! h, K& s1 T! b    Me.sktServer.Accept requestID
0 C5 Y9 n5 o: c. ]End Sub

: i. q/ u# `* F( d! O3 h; kPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
4 p, M# S' Z' A' ]+ ^  e4 D, W    Dim Buffer As String
    Me.sktServer.GetData Buffer
: R, h2 o% Q, g3 g% Z    Me.txtReceive.Text = Buffer
8 Q0 f0 h3 E/ P1 W0 JEnd Sub