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

生于青春

Option Explicit

Private Sub cmdListen_Click()
    Me.sktServer.Listen
End Sub

4 q2 d0 |6 l+ C4 mPrivate Sub cmdSend_Click()
! I$ z+ }. R' w, i$ z  p, _    Me.sktServer.SendData Me.txtSend.Text
End Sub
( Q3 Q3 F& ~3 C! e* w
Private Sub cmdDisconnect_Click()
5 R) k, g- y! E9 T* L" ?  {    Me.sktServer.Close
6 W( g2 j7 N/ A# G5 }+ C1 qEnd Sub
- F; s5 a/ q/ u7 L5 B) P
Private Sub Form_Load()
* L+ P* D1 G8 _6 B' C3 w
: o+ g# i7 X) H" ?- z5 `9 \End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
/ O3 Z' b8 b7 r, C( |    Me.sktServer.Close
- X' E2 ]# l& s- z$ o2 W+ c9 V    Me.sktServer.Accept requestID
End Sub

Private Sub sktServer_DataArrival(ByVal bytesTotal As Long)
# _7 T: |3 z$ Y3 \: S8 m& K& f    Dim Buffer As String
; g- |; x$ x, N8 ~9 @! ?+ X    Me.sktServer.GetData Buffer
4 C1 K  h" e  O    Me.txtReceive.Text = Buffer
End Sub
8 \: l: L  |! I2 d