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

生于青春

Option Explicit
7 Y0 d; D+ f' O4 m& @0 h( q0 L" V
Private Sub cmdListen_Click()
    Me.sktServer.Listen
4 U  l8 I7 {, I1 _8 q4 iEnd Sub

Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
  B) H' V( w4 h4 |End Sub

3 G7 D( A: U2 ]* Z' i2 G9 g$ MPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub
8 P- C' P+ f1 T5 R+ o1 z, U" R
Private Sub Form_Load()

End Sub
/ p) L# |$ b8 I8 B5 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
    Me.txtReceive.Text = Buffer
: d; J) a' ]% X1 t* B/ D9 ]End Sub
& v! y4 d; y6 S& L8 q, U- \