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

生于青春

Option Explicit

- s. J1 p7 F  U5 j. ZPrivate Sub cmdListen_Click()
% [4 w# m' Y2 h9 Y    Me.sktServer.Listen
End Sub

3 ]; o+ U* w9 Z! ^& nPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub

Private Sub cmdDisconnect_Click()
# E6 j" A& Z4 F# {- Y    Me.sktServer.Close
7 v  V$ `8 L( ?" Q: dEnd Sub

Private Sub Form_Load()
6 _' c0 J$ v* H0 p0 B
End Sub
. C% x9 W( @. K# G; H& c
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
    Me.sktServer.GetData Buffer
0 g: q3 B( b; @1 N  k" O    Me.txtReceive.Text = Buffer
* }* O8 b: M1 S  ?End Sub
  ]' D* J% b5 q, y5 _$ n3 s