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

生于青春

Option Explicit

8 }9 k) |; @, V# W  g7 n7 Y8 ]Private Sub cmdListen_Click()
    Me.sktServer.Listen
- \: ^2 A& o1 H& y6 b7 IEnd Sub
' ?1 n( F2 B# N5 D4 T6 H- z1 E% F2 I) k
) v% V, M1 p& M' SPrivate Sub cmdSend_Click()
    Me.sktServer.SendData Me.txtSend.Text
End Sub
" h) l/ x9 c; g: a9 \" |( X" t- u' ]
Private Sub cmdDisconnect_Click()
2 X: c" p- g6 ~5 v5 ?    Me.sktServer.Close
End Sub

' j8 y" A9 k9 Q- Z% GPrivate Sub Form_Load()
% g6 v4 _" y3 R+ @8 `+ s$ t  |" W7 U' Q
9 s, P4 t7 M: Y9 G5 f/ g. b  ^End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
    Me.sktServer.Close
    Me.sktServer.Accept requestID
End Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
  ?* a; B+ S" Y& y6 U    Dim Buffer As String
    Me.sktServer.GetData Buffer
, y, P2 S/ [# ~' _) ]5 C" X    Me.txtReceive.Text = Buffer
6 X: B4 s. X6 m3 ^$ z( v) JEnd Sub