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

生于青春

Option Explicit
- ?; D4 U0 U1 u6 Q. W/ P2 z" V' E4 s) r
Private Sub cmdListen_Click()
* j2 M# y" ?5 {; z    Me.sktServer.Listen
, L2 z9 a. f$ [4 c# O# e/ aEnd Sub

% l. B# f! {$ y+ C2 }Private Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub

Private Sub cmdDisconnect_Click()
    Me.sktServer.Close
$ u9 y& s; F3 c; U& F5 m2 {. Y7 U  W" aEnd Sub

Private Sub Form_Load()
* M3 _+ X+ d! ^
9 g- k3 T. E' \! y! J; F1 [' wEnd Sub
2 M- N4 k1 i( H/ n7 s
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
  `0 Z: @" C6 S    Me.sktServer.Close
. L1 b5 ]) d3 x8 C    Me.sktServer.Accept requestID
' M& H0 d: p9 \+ Y7 G- yEnd Sub

: ?  c3 y2 ], P: b, I6 XPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
    Dim Buffer As String
* M2 ]2 @* s/ q4 g: D1 A    Me.sktServer.GetData Buffer
3 W& L+ ]3 w5 L( t# D6 b0 e    Me.txtReceive.Text = Buffer
9 S6 n' I2 [% N  L0 d7 g6 w" REnd Sub
6 [0 Q9 q  H7 l