[size=2][color=#0000ff]
Imports[/color][/size][size=2] System.Text
[/size][size=2][color=#0000ff]Imports[/color][/size][size=2] System.Net.Sockets
[/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Class[/color][/size][size=2] Form1
[/size][size=2][color=#0000ff]Inherits[/color][/size][size=2] System.Windows.Forms.Form
[/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Delegate[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] DisplayInvoker([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] t [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2])
#[/size][size=2][color=#0000ff]Region[/color][/size][size=2] " Windows Form Designer generated code "
[/size][size=2][color=#0000ff]Public[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] [/size][size=2][color=#0000ff]New[/color][/size][size=2]()
[/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].New()
[/size][size=2][color=#008000]'This call is required by the Windows Form Designer.
[/color][/size][size=2]InitializeComponent()
[/size][size=2][color=#008000]'Add any initialization after the InitializeComponent() call
[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#008000]'Form overrides dispose to clean up the component list.
[/color][/size][size=2][/size][size=2][color=#0000ff]Protected[/color][/size][size=2] [/size][size=2][color=#0000ff]Overloads[/color][/size][size=2] [/size][size=2][color=#0000ff]Overrides[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Dispose([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] disposing [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Boolean[/color][/size][size=2])
[/size][size=2][color=#0000ff]If[/color][/size][size=2] disposing [/size][size=2][color=#0000ff]Then
[/color][/size][size=2][/size][size=2][color=#0000ff]If[/color][/size][size=2] [/size][size=2][color=#0000ff]Not[/color][/size][size=2] (components [/size][size=2][color=#0000ff]Is[/color][/size][size=2] [/size][size=2][color=#0000ff]Nothing[/color][/size][size=2]) [/size][size=2][color=#0000ff]Then
[/color][/size][size=2]components.Dispose()
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If
[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If
[/color][/size][size=2][/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].Dispose(disposing)
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Friend[/color][/size][size=2] [/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] txtDisplay [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.TextBox
[/size][size=2][color=#0000ff]Friend[/color][/size][size=2] [/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] txtSend [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.TextBox
[/size][size=2][color=#0000ff]Friend[/color][/size][size=2] [/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] btnSend [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.Button
[/size][size=2][color=#008000]'Required by the Windows Form Designer
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] components [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.ComponentModel.Container
[/size][size=2][color=#008000]'NOTE: The following procedure is required by the Windows Form Designer
[/color][/size][size=2][/size][size=2][color=#008000]'It can be modified using the Windows Form Designer.
[/color][/size][size=2][/size][size=2][color=#008000]'Do not modify it using the code editor.
[/color][/size][size=2][/size][size=2][color=#0000ff]Friend[/color][/size][size=2] [/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] FontDialog1 [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.FontDialog
[/size][size=2][color=#0000ff]Friend[/color][/size][size=2] [/size][size=2][color=#0000ff]WithEvents[/color][/size][size=2] Button1 [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> [/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] InitializeComponent()
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.Button
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.TextBox
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.TextBox
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1 = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.FontDialog
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1 = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Windows.Forms.Button
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].SuspendLayout()
[/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#008000]'btnSend
[/color][/size][size=2][/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.Anchor = [/size][size=2][color=#0000ff]CType[/color][/size][size=2]((System.Windows.Forms.AnchorStyles.Bottom [/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.Location = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Point(360, 289)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.Name = "btnSend"
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.Size = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(56, 24)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.TabIndex = 2
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend.Text = "Send"
[/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#008000]'txtSend
[/color][/size][size=2][/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Anchor = [/size][size=2][color=#0000ff]CType[/color][/size][size=2](((System.Windows.Forms.AnchorStyles.Bottom [/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Left) _
[/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Location = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Point(8, 289)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Name = "txtSend"
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Size = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(344, 20)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.TabIndex = 1
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Text = ""
[/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#008000]'txtDisplay
[/color][/size][size=2][/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Anchor = [/size][size=2][color=#0000ff]CType[/color][/size][size=2]((((System.Windows.Forms.AnchorStyles.Top [/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Bottom) _
[/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Left) _
[/size][size=2][color=#0000ff]Or[/color][/size][size=2] System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Location = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Point(0, 0)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Multiline = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Name = "txtDisplay"
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Size = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(424, 240)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.TabIndex = 0
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.TabStop = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Text = ""
[/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#008000]'FontDialog1
[/color][/size][size=2][/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.ShowApply = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.ShowColor = [/size][size=2][color=#0000ff]True
[/color][/size][size=2][/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#008000]'Button1
[/color][/size][size=2][/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1.Location = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Point(8, 256)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1.Name = "Button1"
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1.TabIndex = 3
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1.Text = "Button1"
[/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#008000]'Form1
[/color][/size][size=2][/size][size=2][color=#008000]'
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].AcceptButton = [/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].AutoScaleBaseSize = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(5, 13)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].ClientSize = [/size][size=2][color=#0000ff]New[/color][/size][size=2] System.Drawing.Size(424, 318)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls.Add([/size][size=2][color=#0000ff]Me[/color][/size][size=2].Button1)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls.Add([/size][size=2][color=#0000ff]Me[/color][/size][size=2].btnSend)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls.Add([/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Controls.Add([/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay)
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Name = "Form1"
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Text = "Socket Client"
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].ResumeLayout([/size][size=2][color=#0000ff]False[/color][/size][size=2])
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2]#[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Region
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] mobjClient [/size][size=2][color=#0000ff]As[/color][/size][size=2] TcpClient
[/size][size=2][color=#0000ff]Private[/color][/size][size=2] marData(1024) [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Byte
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] mobjText [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]New[/color][/size][size=2] StringBuilder()
[/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Form1_Load([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] [/size][size=2][color=#0000ff]MyBase[/color][/size][size=2].Load
mobjClient = [/size][size=2][color=#0000ff]New[/color][/size][size=2] TcpClient("69.44.152.91", 8999)
DisplayText("Connected to host" & vbCrLf)
mobjClient.GetStream.BeginRead(marData, 0, 1024, [/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] DoRead, [/size][size=2][color=#0000ff]Nothing[/color][/size][size=2])
Send("New client online")
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] btnSend_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] btnSend.Click
Send(txtSend.Text)
txtSend.Text = ""
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Send([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] t [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2])
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] w [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]New[/color][/size][size=2] IO.StreamWriter(mobjClient.GetStream)
w.Write(t & vbCr)
w.Flush()
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] DoRead([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] ar [/size][size=2][color=#0000ff]As[/color][/size][size=2] IAsyncResult)
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] intCount [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Integer
[/color][/size][size=2][/size][size=2][color=#0000ff]Try
[/color][/size][size=2]intCount = mobjClient.GetStream.EndRead(ar)
[/size][size=2][color=#0000ff]If[/color][/size][size=2] intCount < 1 [/size][size=2][color=#0000ff]Then
[/color][/size][size=2]MarkAsDisconnected()
[/size][size=2][color=#0000ff]Exit[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If
[/color][/size][size=2]BuildString(marData, 0, intCount)
mobjClient.GetStream.BeginRead(marData, 0, 1024, [/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] DoRead, [/size][size=2][color=#0000ff]Nothing[/color][/size][size=2])
[/size][size=2][color=#0000ff]Catch[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] Exception
MarkAsDisconnected()
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Try
[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] BuildString([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] Bytes() [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Byte[/color][/size][size=2], [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] offset [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Integer[/color][/size][size=2], [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] count [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Integer[/color][/size][size=2])
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] intIndex [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Integer
[/color][/size][size=2][/size][size=2][color=#0000ff]For[/color][/size][size=2] intIndex = offset [/size][size=2][color=#0000ff]To[/color][/size][size=2] offset + count - 1
[/size][size=2][color=#0000ff]If[/color][/size][size=2] Bytes(intIndex) = 10 [/size][size=2][color=#0000ff]Then
[/color][/size][size=2]mobjText.Append(vbLf)
[/size][size=2][color=#0000ff]Dim[/color][/size][size=2] params() [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]Object[/color][/size][size=2] = {mobjText.ToString}
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].Invoke([/size][size=2][color=#0000ff]New[/color][/size][size=2] DisplayInvoker([/size][size=2][color=#0000ff]AddressOf[/color][/size][size=2] [/size][size=2][color=#0000ff]Me[/color][/size][size=2].DisplayText), params)
mobjText = [/size][size=2][color=#0000ff]New[/color][/size][size=2] StringBuilder()
[/size][size=2][color=#0000ff]Else
[/color][/size][size=2]mobjText.Append(ChrW(Bytes(intIndex)))
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If
[/color][/size][size=2][/size][size=2][color=#0000ff]Next
[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] MarkAsDisconnected()
txtSend.ReadOnly = [/size][size=2][color=#0000ff]True
[/color][/size][size=2]btnSend.Enabled = [/size][size=2][color=#0000ff]False
[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] DisplayText([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] t [/size][size=2][color=#0000ff]As[/color][/size][size=2] [/size][size=2][color=#0000ff]String[/color][/size][size=2])
txtDisplay.AppendText(t)
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] txtDisplay_TextChanged([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] txtDisplay.TextChanged
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
[/color][/size][size=2][/size][size=2][color=#0000ff]Private[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub[/color][/size][size=2] Button1_Click([/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] sender [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.Object, [/size][size=2][color=#0000ff]ByVal[/color][/size][size=2] e [/size][size=2][color=#0000ff]As[/color][/size][size=2] System.EventArgs) [/size][size=2][color=#0000ff]Handles[/color][/size][size=2] Button1.Click
[/size][size=2][color=#0000ff]If[/color][/size][size=2] [/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.ShowDialog = DialogResult.OK [/size][size=2][color=#0000ff]Then
[/color][/size][size=2][/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtSend.Font = [/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.Font
[/size][size=2][color=#0000ff]Me[/color][/size][size=2].txtDisplay.Font = [/size][size=2][color=#0000ff]Me[/color][/size][size=2].FontDialog1.Font
[/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]If
[/color][/size][size=2][/size][size=2][color=#0000ff]End[/color][/size][size=2] [/size][size=2][color=#0000ff]Sub
End[/color][/size][size=2] [/size][size=2][color=#0000ff]Class
[/color][/size]