Private Sub CheckBox4_CheckedChanged_1(sender As Object, e As EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked Then
            Control.CheckForIllegalCrossThreadCalls = False
            ThreadPool.SetMinThreads(Integer.MaxValue, Integer.MaxValue)
            ServicePointManager.DefaultConnectionLimit = Integer.MaxValue
            MyBase.Width = 248
            MyBase.Height = 165

        Else
            Control.CheckForIllegalCrossThreadCalls = False
            ThreadPool.SetMinThreads(Integer.MaxValue, Integer.MaxValue)
            ServicePointManager.DefaultConnectionLimit = Integer.MaxValue
            MyBase.Width = 105
            MyBase.Height = 165

        End If
    End Sub