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

生于青春

Option Explicit
- m5 w0 t9 d1 S/ X9 r' z! E
Private Sub cmdListen_Click()
  V, `! ]6 Y6 Z( r4 p    Me.sktServer.Listen
End Sub

Private Sub cmdSend_Click()
8 R$ a3 l+ b" E8 f    Me.sktServer.SendData Me.txtSend.Text
" `% E0 M/ b; D9 x' e. @End Sub
6 s: V; z& _& H  H0 E( |+ J  c
Private Sub cmdDisconnect_Click()
+ m' s" d5 O  N9 T. N    Me.sktServer.Close
End Sub
' L0 s! i% ?6 f$ W
Private Sub Form_Load()
) ~+ \) d% H1 ]/ M8 ~
1 F( k% a+ g( {: SEnd Sub
- O' c5 y! \; e# I
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
: [% o" J  g1 x/ q    Me.sktServer.Close
    Me.sktServer.Accept requestID
8 R" v; {' [7 p6 d  A1 O8 W8 LEnd Sub
- ]- B, ^, t/ S
Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
4 W  G) W8 R% v/ e/ {    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
( V' w8 F( L" R0 c# Z  wEnd Sub