; i2 Q% w( h' qPrivate Sub cmdSend_Click() 1 W6 G8 R7 E* f* q, E% T Me.sktServer.SendData Me.txtSend.Text ) X8 R# _4 G8 }9 o. G1 V7 ~* yEnd Sub- o z u' q7 ~ V d
5 p, o- r! `4 Q$ P& C
Private Sub cmdDisconnect_Click(): \8 T7 B. c5 r% i; u' d# x6 x
Me.sktServer.Close/ u+ v2 g2 J, s; l8 Y) [# I
End Sub9 i- K u& B5 M1 E+ I. e% [
) e6 K! o2 ^6 i' G% z; |5 t
Private Sub Form_Load() + e& B' w8 d0 Z9 F 5 I+ i, o% w% ]6 B2 D* T, _4 ^: xEnd Sub; i* _: }. m5 }3 P, l$ N
: X1 D8 L) E& N& d5 b
Private Sub sktServer_ConnectionRequest(ByVal requestID As Long)' G$ B5 O3 f3 f+ Y+ t$ R
Me.sktServer.Close $ ?9 _; W# [: f( R% S( g Me.sktServer.Accept requestID # b- t& C1 W9 y6 f9 q U$ SEnd Sub6 u. O. _! ~8 i) L7 g
3 H% W- w" a" qPrivate Sub sktServer_DataArrival(ByVal bytesTotal As Long) / F% H0 L1 Z- H$ e3 ? Dim Buffer As String # ]! K0 R G0 D# @! X Me.sktServer.GetData Buffer3 [3 T1 i' {8 c" E
Me.txtReceive.Text = Buffer# h& d# c) Z' S- f
End Sub . E! ~* Q7 Z) r( l! A9 M