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

生于青春

Option Explicit

1 U/ ~) o, t# X/ }Private Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub
0 ]$ }$ b, ^' k  W( s& \! Z# J
& f$ z4 B. }2 j! d1 _% n5 I8 oPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
# D8 v& ?- g( \$ N" Z2 iEnd Sub

" W# M2 @9 h) l7 u* |" _Private Sub cmdDisconnect_Click()
2 V* V( a/ s" ?% a$ D. Q    Me.sktServer.Close
End Sub
  I, f& W9 q# o9 f
1 U$ ?& ]/ w5 t0 P; |Private Sub Form_Load()

( W! {0 }. g) L1 y& t2 }End Sub

9 c% D/ u$ z6 H  C- x5 d# q+ W) g! ]Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub
' c9 l/ b: Q6 W" N
/ s5 n) Q& A" J/ \4 c0 DPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
! Q9 N/ [6 _! C8 Q0 Z( ]    Dim Buffer As String
/ p- W. X0 t2 c" q  F& u    Me.sktServer.GetData Buffer
0 U; G1 l! U% m, l- V4 C4 b/ s    Me.txtReceive.Text = Buffer
- Y8 |% q9 T8 x, w( `End Sub