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

生于青春

Option Explicit

Private Sub cmdListen_Click()
0 ]4 K' L( |. x4 a% T/ f. ?+ k: G    Me.sktServer.Listen
End Sub
: o! e/ t0 C, d& E5 A9 K
; C: r5 o. r9 @' ]! SPrivate Sub cmdSend_Click()
  Z) w9 {) r( `) Q" @! y4 c- n    Me.sktServer.SendData Me.txtSend.Text
( c8 m' h; ~* B) t! r3 d. q! sEnd Sub

- T3 Y6 r4 N8 NPrivate Sub cmdDisconnect_Click()
    Me.sktServer.Close
End Sub
3 P# n) V5 F- m+ q
Private Sub Form_Load()
" u1 n' E) n0 ]. @
End Sub

Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)
( I& `8 m2 `( O/ t0 q    Me.sktServer.Close
; k) Z% V' s' w- p9 Y    Me.sktServer.Accept requestID
, w- m" i: C4 n( U# g9 j4 ]) QEnd Sub
3 x3 d: f: |! s4 C
- F. Y; A, \6 n6 GPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long)
9 }. @1 ?) X8 D0 c    Dim Buffer As String
    Me.sktServer.GetData Buffer
0 O5 f* G+ H9 |* T    Me.txtReceive.Text = Buffer
End Sub
* I* N% g" D& \) U