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

生于青春

Option Explicit

2 X& q/ R3 T1 x  ?" [8 R/ F: u1 OPrivate Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub
  F- E" E6 _; v6 s# b" g5 X
Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub
" I' }6 x: z0 j. U* P
Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub

Private Sub Form_Load()

, N) i- D  Z- z5 g2 b  r1 M4 sEnd Sub

- W  S* W2 x3 ?" x+ g2 U: e; pPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
( a+ \8 @! v: k$ R& q    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub

2 M8 t2 U& D% c5 g0 d) ?) A. U/ SPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
- ^* C; I% |) {/ L6 W' |% D    Me.sktServer.GetData Buffer
  }* i; ]/ |; a% }1 `    Me.txtReceive.Text = Buffer
. j: r! g5 u. J" ~8 pEnd Sub
1 D% K2 A2 T6 w