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

生于青春

Option Explicit
7 k1 g" w$ [& s
Private Sub cmdListen_Click()
' c! M8 n$ n( f& u' \) n# I    Me.sktServer.Listen
End Sub

, L% X' D+ j& s% N1 T6 f! X: I( yPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
  k# }+ U# `9 n4 I- zEnd Sub

* B. R+ g8 B/ x0 `$ r  ZPrivate Sub cmdDisconnect_Click()
. w4 p7 x+ d9 ]4 M& z    Me.sktServer.Close
* a+ p/ @! R7 U7 W% d6 H: FEnd Sub
! `2 r' e( T4 J; d! O' z& T
5 n1 B4 {/ m' o8 z% d: uPrivate Sub Form_Load()

End Sub
' V, I+ p9 N9 y- |: z9 T, x
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
1 t( a+ V. U9 ]9 ^% j. V4 V2 K    Me.sktServer.Close
* ~( b! t5 Z) \0 r; F# k0 m2 r    Me.sktServer.Accept requestID
4 I* C7 i7 Q. `) K& L' TEnd Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
' L8 n  q5 q/ W* r, n. e    Dim Buffer As String
6 o: y% b- v- s; y, K4 `    Me.sktServer.GetData Buffer
; ^4 q8 O( v3 Z& f3 t5 B    Me.txtReceive.Text = Buffer
End Sub
2 f8 r2 M3 D- p9 K+ _5 a