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

生于青春

Option Explicit

Private Sub cmdListen_Click()
    Me.sktServer.Listen
# I+ N1 }) T6 ^$ U3 ZEnd Sub

  t0 }; z7 G% A; t6 u: v& tPrivate Sub cmdSend_Click()
" Z+ y# w3 F, t$ k2 W/ J    Me.sktServer.SendData Me.txtSend.Text
, D" j" @( c; L' v' P) G! Z8 iEnd Sub
- s  o) [) {4 Z: x3 R
Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub
- l) t# T! Y8 L7 K+ L6 l
1 k% Z, x2 D5 {Private Sub Form_Load()

# D7 V% Y5 r- Y8 H2 l( |, b+ aEnd Sub
6 S1 R$ X$ t/ @( Z0 h) N$ X6 A
  D% d) Y8 ~! B. gPrivate Sub sktServer_ConnectionRequest(ByVal requestID As Long)
3 O) u" n$ a1 f  N) }    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
6 t7 i3 @; z6 n' g: A    Me.sktServer.GetData Buffer
    Me.txtReceive.Text = Buffer
End Sub
+ ~# T' D' X' x' A* a$ j, \) w, _