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

生于青春

Option Explicit

Private Sub cmdListen_Click()
3 f: z8 w8 j7 U) @    Me.sktServer.Listen
End Sub
: \* g6 M) x* z9 A
Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub
; R$ B0 W" {) N. B- T) x: Q
0 y+ b  ?6 u0 b9 g( OPrivate Sub cmdDisconnect_Click()
8 F1 V& ~- Q: W: H5 x; q    Me.sktServer.Close
End Sub

4 |" H! |! d; h  J  i; B$ QPrivate Sub Form_Load()

# u  k% ]# Q$ k, oEnd Sub
6 Y8 G/ @3 m- U; F
" B! y' `+ Z- d! B4 k  Z$ aPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
( B& j3 q+ h# o- p# M* D    Me.sktServer.Accept requestID
) I& \0 F; s, t1 lEnd Sub
3 m$ p- `& h% m: m7 U
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
/ Y6 Y& E9 O# \* F    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub