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

生于青春

Option Explicit
  I' ?7 j. @: X/ G  ~
+ p4 l" r) L% R* o+ LPrivate Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub
2 m9 f$ t' J6 Y, j0 d+ C7 N4 I7 z
Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub
- u2 X# w5 ]# y) N* d/ F7 \4 r
3 E% d+ H6 E# J" ~5 IPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub

Private Sub Form_Load()
, A( t$ m9 r0 G' L' H! @
End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
* D# Z+ X0 T4 @1 r/ Y+ n! n    Me.sktServer.Close
8 p1 {1 q8 U+ m; y6 T( g/ D    Me.sktServer.Accept requestID
. _. q4 D# C; O9 {# {# b1 AEnd Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
) U. p6 H- R5 L0 b' d2 C  C    Dim Buffer As String
    Me.sktServer.GetData Buffer
) C" H9 q; w/ a    Me.txtReceive.Text = Buffer
$ m/ t: a0 z! {* fEnd Sub
9 W3 V: s) G4 x9 n- [