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

生于青春

Option Explicit

Private Sub cmdListen_Click()
    Me.sktServer.Listen
! H' V$ ^7 n5 eEnd Sub

Private Sub cmdSend_Click()
% a; T* H' m4 W: s2 X2 ^( e( j: N    Me.sktServer.SendData Me.txtSend.Text
End Sub

Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
; o2 Z7 D8 `1 @' `# Z, F% Z  ]End Sub

9 t9 I6 Y. [, IPrivate Sub Form_Load()

* W+ j* m5 a6 |' Z9 S8 BEnd Sub
1 e" U, B0 y/ D8 p$ W
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
: Y3 X- `) X7 i" _; Z) G    Me.sktServer.Close
* v7 K) i; ?1 l+ s' i( e9 }  g    Me.sktServer.Accept requestID
End Sub

- |  c, k) y5 |+ j$ ]Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
% l# C( @! F! s7 w, F  h- G    Dim Buffer As String
# e( C7 I: Z; s2 E    Me.sktServer.GetData Buffer
2 B+ Z0 q) T! z6 A9 o( H+ Z    Me.txtReceive.Text = Buffer
. L- i+ j5 h7 H0 W! n$ W  u3 mEnd Sub
' D1 J! I/ A8 E4 N# c" s