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

生于青春

Option Explicit

Private Sub cmdListen_Click()
" X/ _9 J' J' w( T    Me.sktServer.Listen
End Sub

) u2 t% d' p1 o' M0 X9 I6 U0 dPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
8 ]. s, J& m; k; g% O( W9 {! h* gEnd Sub
1 _  B/ z# {8 j  `/ ^' @4 I
8 X7 |- J" j+ S2 z$ ]* RPrivate Sub cmdDisconnect_Click()
1 G, M. J4 t) C    Me.sktServer.Close
End Sub
$ Z/ _: d1 @3 @( d( R7 R) X
/ K# Z( v" u) x# X9 _4 oPrivate Sub Form_Load()

/ Y- E" b8 f: z. s6 C& V2 HEnd Sub
# k9 g/ Y# L' X2 H  L
5 s9 M) U; [+ @1 p! K5 ]' v: `Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
    Me.sktServer.Accept requestID
) t4 g0 |' i8 G% C; ?End Sub
' T/ x' c, R9 f/ T
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
9 |  ?7 H1 `" g) g9 B! W    Me.sktServer.GetData Buffer
* {- z2 _6 p: \( I" L0 _' e6 A    Me.txtReceive.Text = Buffer
End Sub