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

生于青春

Option Explicit

Private Sub cmdListen_Click()
    Me.sktServer.Listen
/ D, r2 d& @5 MEnd Sub
0 q* t: E# W, ]& Y# S
Private Sub cmdSend_Click()
8 A! S7 a" u0 g% Z6 P/ ]* w: e    Me.sktServer.SendData Me.txtSend.Text
- r7 v+ [) B& I- {- [/ M" e/ KEnd Sub

0 S4 V+ u6 ^# y6 V) c. }2 |: o- cPrivate Sub cmdDisconnect_Click()
0 z) l& Y8 Q/ g$ o, i    Me.sktServer.Close
+ m2 @& J" U2 C1 CEnd Sub
* {* L( Y( Z5 M5 Q- n
7 F8 W# H9 g; q  n; K# ]Private Sub Form_Load()

4 `) U% M9 O. lEnd Sub
* f! c% L% t6 `! b# J4 v
) Z0 N3 y8 E! V" oPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
1 F9 r: p  b% z$ j    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub

4 v+ F+ U2 W: U2 e$ z9 k7 CPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
3 r6 e) _' m& w. `! V    Dim Buffer As String
    Me.sktServer.GetData Buffer
# N8 I' n8 u7 m3 Y% e; W" F    Me.txtReceive.Text = Buffer
End Sub