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

生于青春

Option Explicit
- Y  R: W1 C  Y: w, k8 O
Private Sub cmdListen_Click()
% I8 C' x* h" ]- k. Y. m  s    Me.sktServer.Listen
End Sub

5 Y  B1 E  g4 E# oPrivate Sub cmdSend_Click()
$ }( P9 z& b# [. C* G7 [0 _    Me.sktServer.SendData Me.txtSend.Text
End Sub

# L- q' x8 j. m' f5 hPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub

Private Sub Form_Load()
. f2 ?& a# O* a* Y/ l. R1 K7 x+ a
End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
& o  A) [, E* k, s5 `# w4 A0 W    Me.sktServer.Close
    Me.sktServer.Accept requestID
6 l. b9 {$ K' `' y9 m2 p5 B$ k0 a( MEnd Sub
- x- X' V$ A8 v, s; a/ b: X1 s
) t4 q- W! j& s' X, DPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
7 T: y( y- }8 m' s( c! u) N    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub
+ t6 q# |% J# B