mRemoteNG/mRemoteV1/UI/UI.Window.ComponentsCheck.vb

Imports WeifenLuo.WinFormsUI.Docking
Imports System.IO
Imports mRemote.App.Runtime
Imports System.Threading

Namespace UI
    Namespace Window
        Public Class ComponentsCheck
            Inherits UI.Window.Base

#Region "Form Stuff"
            Friend WithEvents pbCheck1 As System.Windows.Forms.PictureBox
            Friend WithEvents lblCheck1 As System.Windows.Forms.Label
            Friend WithEvents pnlCheck2 As System.Windows.Forms.Panel
            Friend WithEvents lblCheck2 As System.Windows.Forms.Label
            Friend WithEvents pbCheck2 As System.Windows.Forms.PictureBox
            Friend WithEvents pnlCheck3 As System.Windows.Forms.Panel
            Friend WithEvents lblCheck3 As System.Windows.Forms.Label
            Friend WithEvents pbCheck3 As System.Windows.Forms.PictureBox
            Friend WithEvents pnlCheck4 As System.Windows.Forms.Panel
            Friend WithEvents lblCheck4 As System.Windows.Forms.Label
            Friend WithEvents pbCheck4 As System.Windows.Forms.PictureBox
            Friend WithEvents pnlCheck5 As System.Windows.Forms.Panel
            Friend WithEvents lblCheck5 As System.Windows.Forms.Label
            Friend WithEvents pbCheck5 As System.Windows.Forms.PictureBox
            Friend WithEvents btnCheckAgain As System.Windows.Forms.Button
            Friend WithEvents txtCheck1 As System.Windows.Forms.TextBox
            Friend WithEvents txtCheck2 As System.Windows.Forms.TextBox
            Friend WithEvents txtCheck3 As System.Windows.Forms.TextBox
            Friend WithEvents txtCheck4 As System.Windows.Forms.TextBox
            Friend WithEvents txtCheck5 As System.Windows.Forms.TextBox
            Friend WithEvents chkAlwaysShow As System.Windows.Forms.CheckBox
            Friend WithEvents pnlChecks As System.Windows.Forms.Panel
            Friend WithEvents pnlCheck6 As System.Windows.Forms.Panel
            Friend WithEvents txtCheck6 As System.Windows.Forms.TextBox
            Friend WithEvents lblCheck6 As System.Windows.Forms.Label
            Friend WithEvents pbCheck6 As System.Windows.Forms.PictureBox
            Friend WithEvents pnlCheck1 As System.Windows.Forms.Panel

            Private Sub InitializeComponent()
                Me.pnlCheck1 = New System.Windows.Forms.Panel
                Me.txtCheck1 = New System.Windows.Forms.TextBox
                Me.lblCheck1 = New System.Windows.Forms.Label
                Me.pbCheck1 = New System.Windows.Forms.PictureBox
                Me.pnlCheck2 = New System.Windows.Forms.Panel
                Me.txtCheck2 = New System.Windows.Forms.TextBox
                Me.lblCheck2 = New System.Windows.Forms.Label
                Me.pbCheck2 = New System.Windows.Forms.PictureBox
                Me.pnlCheck3 = New System.Windows.Forms.Panel
                Me.txtCheck3 = New System.Windows.Forms.TextBox
                Me.lblCheck3 = New System.Windows.Forms.Label
                Me.pbCheck3 = New System.Windows.Forms.PictureBox
                Me.pnlCheck4 = New System.Windows.Forms.Panel
                Me.txtCheck4 = New System.Windows.Forms.TextBox
                Me.lblCheck4 = New System.Windows.Forms.Label
                Me.pbCheck4 = New System.Windows.Forms.PictureBox
                Me.pnlCheck5 = New System.Windows.Forms.Panel
                Me.txtCheck5 = New System.Windows.Forms.TextBox
                Me.lblCheck5 = New System.Windows.Forms.Label
                Me.pbCheck5 = New System.Windows.Forms.PictureBox
                Me.btnCheckAgain = New System.Windows.Forms.Button
                Me.chkAlwaysShow = New System.Windows.Forms.CheckBox
                Me.pnlChecks = New System.Windows.Forms.Panel
                Me.pnlCheck6 = New System.Windows.Forms.Panel
                Me.txtCheck6 = New System.Windows.Forms.TextBox
                Me.lblCheck6 = New System.Windows.Forms.Label
                Me.pbCheck6 = New System.Windows.Forms.PictureBox
                Me.pnlCheck1.SuspendLayout()
                CType(Me.pbCheck1, System.ComponentModel.ISupportInitialize).BeginInit()
                Me.pnlCheck2.SuspendLayout()
                CType(Me.pbCheck2, System.ComponentModel.ISupportInitialize).BeginInit()
                Me.pnlCheck3.SuspendLayout()
                CType(Me.pbCheck3, System.ComponentModel.ISupportInitialize).BeginInit()
                Me.pnlCheck4.SuspendLayout()
                CType(Me.pbCheck4, System.ComponentModel.ISupportInitialize).BeginInit()
                Me.pnlCheck5.SuspendLayout()
                CType(Me.pbCheck5, System.ComponentModel.ISupportInitialize).BeginInit()
                Me.pnlChecks.SuspendLayout()
                Me.pnlCheck6.SuspendLayout()
                CType(Me.pbCheck6, System.ComponentModel.ISupportInitialize).BeginInit()
                Me.SuspendLayout()
                '
                'pnlCheck1
                '
                Me.pnlCheck1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.pnlCheck1.Controls.Add(Me.txtCheck1)
                Me.pnlCheck1.Controls.Add(Me.lblCheck1)
                Me.pnlCheck1.Controls.Add(Me.pbCheck1)
                Me.pnlCheck1.Location = New System.Drawing.Point(3, 3)
                Me.pnlCheck1.Name = "pnlCheck1"
                Me.pnlCheck1.Size = New System.Drawing.Size(562, 130)
                Me.pnlCheck1.TabIndex = 10
                Me.pnlCheck1.Visible = False
                '
                'txtCheck1
                '
                Me.txtCheck1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.txtCheck1.BackColor = System.Drawing.SystemColors.Control
                Me.txtCheck1.BorderStyle = System.Windows.Forms.BorderStyle.None
                Me.txtCheck1.Location = New System.Drawing.Point(129, 29)
                Me.txtCheck1.Multiline = True
                Me.txtCheck1.Name = "txtCheck1"
                Me.txtCheck1.ReadOnly = True
                Me.txtCheck1.Size = New System.Drawing.Size(430, 97)
                Me.txtCheck1.TabIndex = 2
                '
                'lblCheck1
                '
                Me.lblCheck1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.lblCheck1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
                Me.lblCheck1.ForeColor = System.Drawing.SystemColors.ControlText
                Me.lblCheck1.Location = New System.Drawing.Point(108, 3)
                Me.lblCheck1.Name = "lblCheck1"
                Me.lblCheck1.Size = New System.Drawing.Size(451, 23)
                Me.lblCheck1.TabIndex = 1
                Me.lblCheck1.Text = "RDP check succeeded!"
                '
                'pbCheck1
                '
                Me.pbCheck1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
                Me.pbCheck1.Location = New System.Drawing.Point(3, 3)
                Me.pbCheck1.Name = "pbCheck1"
                Me.pbCheck1.Size = New System.Drawing.Size(72, 123)
                Me.pbCheck1.TabIndex = 0
                Me.pbCheck1.TabStop = False
                '
                'pnlCheck2
                '
                Me.pnlCheck2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.pnlCheck2.Controls.Add(Me.txtCheck2)
                Me.pnlCheck2.Controls.Add(Me.lblCheck2)
                Me.pnlCheck2.Controls.Add(Me.pbCheck2)
                Me.pnlCheck2.Location = New System.Drawing.Point(3, 139)
                Me.pnlCheck2.Name = "pnlCheck2"
                Me.pnlCheck2.Size = New System.Drawing.Size(562, 130)
                Me.pnlCheck2.TabIndex = 20
                Me.pnlCheck2.Visible = False
                '
                'txtCheck2
                '
                Me.txtCheck2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.txtCheck2.BackColor = System.Drawing.SystemColors.Control
                Me.txtCheck2.BorderStyle = System.Windows.Forms.BorderStyle.None
                Me.txtCheck2.Location = New System.Drawing.Point(129, 29)
                Me.txtCheck2.Multiline = True
                Me.txtCheck2.Name = "txtCheck2"
                Me.txtCheck2.ReadOnly = True
                Me.txtCheck2.Size = New System.Drawing.Size(430, 97)
                Me.txtCheck2.TabIndex = 2
                '
                'lblCheck2
                '
                Me.lblCheck2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.lblCheck2.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
                Me.lblCheck2.Location = New System.Drawing.Point(112, 3)
                Me.lblCheck2.Name = "lblCheck2"
                Me.lblCheck2.Size = New System.Drawing.Size(447, 23)
                Me.lblCheck2.TabIndex = 1
                Me.lblCheck2.Text = "RDP check succeeded!"
                '
                'pbCheck2
                '
                Me.pbCheck2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
                Me.pbCheck2.Location = New System.Drawing.Point(3, 3)
                Me.pbCheck2.Name = "pbCheck2"
                Me.pbCheck2.Size = New System.Drawing.Size(72, 123)
                Me.pbCheck2.TabIndex = 0
                Me.pbCheck2.TabStop = False
                '
                'pnlCheck3
                '
                Me.pnlCheck3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.pnlCheck3.Controls.Add(Me.txtCheck3)
                Me.pnlCheck3.Controls.Add(Me.lblCheck3)
                Me.pnlCheck3.Controls.Add(Me.pbCheck3)
                Me.pnlCheck3.Location = New System.Drawing.Point(3, 275)
                Me.pnlCheck3.Name = "pnlCheck3"
                Me.pnlCheck3.Size = New System.Drawing.Size(562, 130)
                Me.pnlCheck3.TabIndex = 30
                Me.pnlCheck3.Visible = False
                '
                'txtCheck3
                '
                Me.txtCheck3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.txtCheck3.BackColor = System.Drawing.SystemColors.Control
                Me.txtCheck3.BorderStyle = System.Windows.Forms.BorderStyle.None
                Me.txtCheck3.Location = New System.Drawing.Point(129, 29)
                Me.txtCheck3.Multiline = True
                Me.txtCheck3.Name = "txtCheck3"
                Me.txtCheck3.ReadOnly = True
                Me.txtCheck3.Size = New System.Drawing.Size(430, 97)
                Me.txtCheck3.TabIndex = 2
                '
                'lblCheck3
                '
                Me.lblCheck3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.lblCheck3.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
                Me.lblCheck3.Location = New System.Drawing.Point(112, 3)
                Me.lblCheck3.Name = "lblCheck3"
                Me.lblCheck3.Size = New System.Drawing.Size(447, 23)
                Me.lblCheck3.TabIndex = 1
                Me.lblCheck3.Text = "RDP check succeeded!"
                '
                'pbCheck3
                '
                Me.pbCheck3.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
                Me.pbCheck3.Location = New System.Drawing.Point(3, 3)
                Me.pbCheck3.Name = "pbCheck3"
                Me.pbCheck3.Size = New System.Drawing.Size(72, 123)
                Me.pbCheck3.TabIndex = 0
                Me.pbCheck3.TabStop = False
                '
                'pnlCheck4
                '
                Me.pnlCheck4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.pnlCheck4.Controls.Add(Me.txtCheck4)
                Me.pnlCheck4.Controls.Add(Me.lblCheck4)
                Me.pnlCheck4.Controls.Add(Me.pbCheck4)
                Me.pnlCheck4.Location = New System.Drawing.Point(3, 411)
                Me.pnlCheck4.Name = "pnlCheck4"
                Me.pnlCheck4.Size = New System.Drawing.Size(562, 130)
                Me.pnlCheck4.TabIndex = 40
                Me.pnlCheck4.Visible = False
                '
                'txtCheck4
                '
                Me.txtCheck4.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.txtCheck4.BackColor = System.Drawing.SystemColors.Control
                Me.txtCheck4.BorderStyle = System.Windows.Forms.BorderStyle.None
                Me.txtCheck4.Location = New System.Drawing.Point(129, 30)
                Me.txtCheck4.Multiline = True
                Me.txtCheck4.Name = "txtCheck4"
                Me.txtCheck4.ReadOnly = True
                Me.txtCheck4.Size = New System.Drawing.Size(430, 97)
                Me.txtCheck4.TabIndex = 2
                '
                'lblCheck4
                '
                Me.lblCheck4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.lblCheck4.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
                Me.lblCheck4.Location = New System.Drawing.Point(112, 3)
                Me.lblCheck4.Name = "lblCheck4"
                Me.lblCheck4.Size = New System.Drawing.Size(447, 23)
                Me.lblCheck4.TabIndex = 1
                Me.lblCheck4.Text = "RDP check succeeded!"
                '
                'pbCheck4
                '
                Me.pbCheck4.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
                Me.pbCheck4.Location = New System.Drawing.Point(3, 3)
                Me.pbCheck4.Name = "pbCheck4"
                Me.pbCheck4.Size = New System.Drawing.Size(72, 123)
                Me.pbCheck4.TabIndex = 0
                Me.pbCheck4.TabStop = False
                '
                'pnlCheck5
                '
                Me.pnlCheck5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.pnlCheck5.Controls.Add(Me.txtCheck5)
                Me.pnlCheck5.Controls.Add(Me.lblCheck5)
                Me.pnlCheck5.Controls.Add(Me.pbCheck5)
                Me.pnlCheck5.Location = New System.Drawing.Point(3, 547)
                Me.pnlCheck5.Name = "pnlCheck5"
                Me.pnlCheck5.Size = New System.Drawing.Size(562, 130)
                Me.pnlCheck5.TabIndex = 50
                Me.pnlCheck5.Visible = False
                '
                'txtCheck5
                '
                Me.txtCheck5.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.txtCheck5.BackColor = System.Drawing.SystemColors.Control
                Me.txtCheck5.BorderStyle = System.Windows.Forms.BorderStyle.None
                Me.txtCheck5.Location = New System.Drawing.Point(129, 29)
                Me.txtCheck5.Multiline = True
                Me.txtCheck5.Name = "txtCheck5"
                Me.txtCheck5.ReadOnly = True
                Me.txtCheck5.Size = New System.Drawing.Size(430, 97)
                Me.txtCheck5.TabIndex = 2
                '
                'lblCheck5
                '
                Me.lblCheck5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.lblCheck5.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
                Me.lblCheck5.Location = New System.Drawing.Point(112, 3)
                Me.lblCheck5.Name = "lblCheck5"
                Me.lblCheck5.Size = New System.Drawing.Size(447, 23)
                Me.lblCheck5.TabIndex = 1
                Me.lblCheck5.Text = "RDP check succeeded!"
                '
                'pbCheck5
                '
                Me.pbCheck5.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
                Me.pbCheck5.Location = New System.Drawing.Point(3, 3)
                Me.pbCheck5.Name = "pbCheck5"
                Me.pbCheck5.Size = New System.Drawing.Size(72, 123)
                Me.pbCheck5.TabIndex = 0
                Me.pbCheck5.TabStop = False
                '
                'btnCheckAgain
                '
                Me.btnCheckAgain.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.btnCheckAgain.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.btnCheckAgain.Location = New System.Drawing.Point(476, 842)
                Me.btnCheckAgain.Name = "btnCheckAgain"
                Me.btnCheckAgain.Size = New System.Drawing.Size(104, 23)
                Me.btnCheckAgain.TabIndex = 0
                Me.btnCheckAgain.Text = "Check again"
                Me.btnCheckAgain.UseVisualStyleBackColor = True
                '
                'chkAlwaysShow
                '
                Me.chkAlwaysShow.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
                Me.chkAlwaysShow.AutoSize = True
                Me.chkAlwaysShow.FlatStyle = System.Windows.Forms.FlatStyle.Flat
                Me.chkAlwaysShow.Location = New System.Drawing.Point(12, 846)
                Me.chkAlwaysShow.Name = "chkAlwaysShow"
                Me.chkAlwaysShow.Size = New System.Drawing.Size(185, 17)
                Me.chkAlwaysShow.TabIndex = 51
                Me.chkAlwaysShow.Text = "Always show this screen at startup"
                Me.chkAlwaysShow.UseVisualStyleBackColor = True
                '
                'pnlChecks
                '
                Me.pnlChecks.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.pnlChecks.AutoScroll = True
                Me.pnlChecks.Controls.Add(Me.pnlCheck1)
                Me.pnlChecks.Controls.Add(Me.pnlCheck2)
                Me.pnlChecks.Controls.Add(Me.pnlCheck3)
                Me.pnlChecks.Controls.Add(Me.pnlCheck6)
                Me.pnlChecks.Controls.Add(Me.pnlCheck5)
                Me.pnlChecks.Controls.Add(Me.pnlCheck4)
                Me.pnlChecks.Location = New System.Drawing.Point(12, 12)
                Me.pnlChecks.Name = "pnlChecks"
                Me.pnlChecks.Size = New System.Drawing.Size(568, 824)
                Me.pnlChecks.TabIndex = 52
                '
                'pnlCheck6
                '
                Me.pnlCheck6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.pnlCheck6.Controls.Add(Me.txtCheck6)
                Me.pnlCheck6.Controls.Add(Me.lblCheck6)
                Me.pnlCheck6.Controls.Add(Me.pbCheck6)
                Me.pnlCheck6.Location = New System.Drawing.Point(3, 683)
                Me.pnlCheck6.Name = "pnlCheck6"
                Me.pnlCheck6.Size = New System.Drawing.Size(562, 130)
                Me.pnlCheck6.TabIndex = 50
                Me.pnlCheck6.Visible = False
                '
                'txtCheck6
                '
                Me.txtCheck6.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.txtCheck6.BackColor = System.Drawing.SystemColors.Control
                Me.txtCheck6.BorderStyle = System.Windows.Forms.BorderStyle.None
                Me.txtCheck6.Location = New System.Drawing.Point(129, 29)
                Me.txtCheck6.Multiline = True
                Me.txtCheck6.Name = "txtCheck6"
                Me.txtCheck6.ReadOnly = True
                Me.txtCheck6.Size = New System.Drawing.Size(430, 97)
                Me.txtCheck6.TabIndex = 2
                '
                'lblCheck6
                '
                Me.lblCheck6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                            Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
                Me.lblCheck6.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
                Me.lblCheck6.Location = New System.Drawing.Point(112, 3)
                Me.lblCheck6.Name = "lblCheck6"
                Me.lblCheck6.Size = New System.Drawing.Size(447, 23)
                Me.lblCheck6.TabIndex = 1
                Me.lblCheck6.Text = "RDP check succeeded!"
                '
                'pbCheck6
                '
                Me.pbCheck6.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
                            Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
                Me.pbCheck6.Location = New System.Drawing.Point(3, 3)
                Me.pbCheck6.Name = "pbCheck6"
                Me.pbCheck6.Size = New System.Drawing.Size(72, 123)
                Me.pbCheck6.TabIndex = 0
                Me.pbCheck6.TabStop = False
                '
                'ComponentsCheck
                '
                Me.ClientSize = New System.Drawing.Size(592, 877)
                Me.Controls.Add(Me.pnlChecks)
                Me.Controls.Add(Me.chkAlwaysShow)
                Me.Controls.Add(Me.btnCheckAgain)
                Me.Icon = Global.mRemote.My.Resources.Resources.ComponentsCheck_Icon
                Me.Name = "ComponentsCheck"
                Me.TabText = "Components Check"
                Me.Text = "Components Check"
                Me.pnlCheck1.ResumeLayout(False)
                Me.pnlCheck1.PerformLayout()
                CType(Me.pbCheck1, System.ComponentModel.ISupportInitialize).EndInit()
                Me.pnlCheck2.ResumeLayout(False)
                Me.pnlCheck2.PerformLayout()
                CType(Me.pbCheck2, System.ComponentModel.ISupportInitialize).EndInit()
                Me.pnlCheck3.ResumeLayout(False)
                Me.pnlCheck3.PerformLayout()
                CType(Me.pbCheck3, System.ComponentModel.ISupportInitialize).EndInit()
                Me.pnlCheck4.ResumeLayout(False)
                Me.pnlCheck4.PerformLayout()
                CType(Me.pbCheck4, System.ComponentModel.ISupportInitialize).EndInit()
                Me.pnlCheck5.ResumeLayout(False)
                Me.pnlCheck5.PerformLayout()
                CType(Me.pbCheck5, System.ComponentModel.ISupportInitialize).EndInit()
                Me.pnlChecks.ResumeLayout(False)
                Me.pnlCheck6.ResumeLayout(False)
                Me.pnlCheck6.PerformLayout()
                CType(Me.pbCheck6, System.ComponentModel.ISupportInitialize).EndInit()
                Me.ResumeLayout(False)
                Me.PerformLayout()

            End Sub
#End Region

#Region "Public Methods"
            Public Sub New(ByVal Panel As DockContent)
                Me.WindowType = Type.ComponentsCheck
                Me.DockPnl = Panel
                Me.InitializeComponent()
            End Sub
#End Region

#Region "Form Stuff"
            Private Sub ComponentsCheck_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
                ApplyLanguage()

                chkAlwaysShow.Checked = My.Settings.StartupComponentsCheck
                CheckComponents()
            End Sub

            Private Sub ApplyLanguage()
                TabText = My.Resources.strComponentsCheck
                Text = My.Resources.strComponentsCheck
                chkAlwaysShow.Text = My.Resources.strCcAlwaysShowScreen
                btnCheckAgain.Text = My.Resources.strCcCheckAgain
            End Sub

            Private Sub btnCheckAgain_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheckAgain.Click
                CheckComponents()
            End Sub

            Private Sub chkAlwaysShow_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkAlwaysShow.CheckedChanged
                My.Settings.StartupComponentsCheck = chkAlwaysShow.Checked
                My.Settings.Save()
            End Sub
#End Region

#Region "Private Methods"
            Private Sub CheckComponents()
                Dim errorMsg As String = My.Resources.strCcNotInstalledProperly

                pnlCheck1.Visible = True
                pnlCheck2.Visible = True
                pnlCheck3.Visible = True
                pnlCheck4.Visible = True
                pnlCheck5.Visible = True
                pnlCheck6.Visible = True


                Dim RDP As AxMSTSCLib.AxMsRdpClient6NotSafeForScripting = Nothing

                Try
                    RDP = New AxMSTSCLib.AxMsRdpClient6NotSafeForScripting
                    RDP.CreateControl()

                    Do Until RDP.Created
                        Thread.Sleep(10)
                        System.Windows.Forms.Application.DoEvents()
                    Loop

                    pbCheck1.Image = My.Resources.Good_Symbol
                    lblCheck1.ForeColor = Color.DarkOliveGreen
                    lblCheck1.Text = "RDP (Remote Desktop) " & My.Resources.strCcCheckSucceeded
                    txtCheck1.Text = String.Format(My.Resources.strCcRDPOK, RDP.Version)
                Catch ex As Exception
                    pbCheck1.Image = My.Resources.Bad_Symbol
                    lblCheck1.ForeColor = Color.Firebrick
                    lblCheck1.Text = "RDP (Remote Desktop) " & My.Resources.strCcCheckFailed
                    txtCheck1.Text = My.Resources.strCcRDPFailed

                    mC.AddMessage(Messages.MessageClass.WarningMsg, "RDP " & errorMsg, True)
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, ex.Message, True)
                End Try

                If RDP IsNot Nothing Then RDP.Dispose()


                Dim VNC As VncSharp.RemoteDesktop = Nothing

                Try
                    VNC = New VncSharp.RemoteDesktop
                    VNC.CreateControl()

                    Do Until VNC.Created
                        Thread.Sleep(10)
                        System.Windows.Forms.Application.DoEvents()
                    Loop

                    pbCheck2.Image = My.Resources.Good_Symbol
                    lblCheck2.ForeColor = Color.DarkOliveGreen
                    lblCheck2.Text = "VNC (Virtual Network Computing) " & My.Resources.strCcCheckSucceeded
                    txtCheck2.Text = String.Format(My.Resources.strCcVNCOK, VNC.ProductVersion)
                Catch ex As Exception
                    pbCheck2.Image = My.Resources.Bad_Symbol
                    lblCheck2.ForeColor = Color.Firebrick
                    lblCheck2.Text = "VNC (Virtual Network Computing) " & My.Resources.strCcCheckFailed
                    txtCheck2.Text = My.Resources.strCcVNCFailed

                    mC.AddMessage(Messages.MessageClass.WarningMsg, "VNC " & errorMsg, True)
                    'mC.AddMessage(Messages.MessageClass.ErrorMsg, ex.Message, True)
                End Try

                If VNC IsNot Nothing Then VNC.Dispose()


                Dim pPath As String = ""
                If My.Settings.UseCustomPuttyPath = False Then
                    pPath = My.Application.Info.DirectoryPath & "\putty.exe"
                Else
                    pPath = My.Settings.CustomPuttyPath
                End If

                If File.Exists(pPath) Then
                    pbCheck3.Image = My.Resources.Good_Symbol
                    lblCheck3.ForeColor = Color.DarkOliveGreen
                    lblCheck3.Text = "PuTTY (SSH/Telnet/Rlogin/RAW) " & My.Resources.strCcCheckSucceeded
                    txtCheck3.Text = My.Resources.strCcPuttyOK
                Else
                    pbCheck3.Image = My.Resources.Bad_Symbol
                    lblCheck3.ForeColor = Color.Firebrick
                    lblCheck3.Text = "PuTTY (SSH/Telnet/Rlogin/RAW) " & My.Resources.strCcCheckFailed
                    txtCheck3.Text = My.Resources.strCcPuttyFailed

                    mC.AddMessage(Messages.MessageClass.WarningMsg, "PuTTY " & errorMsg, True)
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, "File " & pPath & " does not exist.", True)
                End If


                Dim ICA As AxWFICALib.AxICAClient = Nothing

                Try
                    ICA = New AxWFICALib.AxICAClient
                    ICA.Parent = Me
                    ICA.CreateControl()

                    Do Until ICA.Created
                        Thread.Sleep(10)
                        System.Windows.Forms.Application.DoEvents()
                    Loop

                    pbCheck4.Image = My.Resources.Good_Symbol
                    lblCheck4.ForeColor = Color.DarkOliveGreen
                    lblCheck4.Text = "ICA (Citrix ICA) " & My.Resources.strCcCheckSucceeded
                    txtCheck4.Text = String.Format(My.Resources.strCcICAOK, ICA.Version)
                Catch ex As Exception
                    pbCheck4.Image = My.Resources.Bad_Symbol
                    lblCheck4.ForeColor = Color.Firebrick
                    lblCheck4.Text = "ICA (Citrix ICA) " & My.Resources.strCcCheckFailed
                    txtCheck4.Text = My.Resources.strCcICAFailed

                    mC.AddMessage(Messages.MessageClass.WarningMsg, "ICA " & errorMsg, True)
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, ex.Message, True)
                End Try

                If ICA IsNot Nothing Then ICA.Dispose()


                Dim GeckoBad As Boolean = False

                If My.Settings.XULRunnerPath = "" Then
                    GeckoBad = True
                End If

                If Directory.Exists(My.Settings.XULRunnerPath) Then
                    If File.Exists(Path.Combine(My.Settings.XULRunnerPath, "xpcom.dll")) = False Then
                        GeckoBad = True
                    End If
                Else
                    GeckoBad = True
                End If

                If GeckoBad = False Then
                    pbCheck5.Image = My.Resources.Good_Symbol
                    lblCheck5.ForeColor = Color.DarkOliveGreen
                    lblCheck5.Text = "Gecko (Firefox) Rendering Engine (HTTP/S) " & My.Resources.strCcCheckSucceeded
                    txtCheck5.Text = My.Resources.strCcGeckoOK
                Else
                    pbCheck5.Image = My.Resources.Bad_Symbol
                    lblCheck5.ForeColor = Color.Firebrick
                    lblCheck5.Text = "Gecko (Firefox) Rendering Engine (HTTP/S) " & My.Resources.strCcCheckFailed
                    txtCheck5.Text = My.Resources.strCcGeckoFailed

                    mC.AddMessage(Messages.MessageClass.WarningMsg, "Gecko " & errorMsg, True)
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, "XULrunner was not found in " & My.Settings.XULRunnerPath, True)
                End If


                Dim eol As EOLWTSCOM.WTSCOM = Nothing

                Try
                    eol = New EOLWTSCOM.WTSCOM()

                    pbCheck6.Image = My.Resources.Good_Symbol
                    lblCheck6.ForeColor = Color.DarkOliveGreen
                    lblCheck6.Text = "(RDP) Sessions " & My.Resources.strCcCheckSucceeded
                    txtCheck6.Text = My.Resources.strCcEOLOK
                Catch ex As Exception
                    pbCheck6.Image = My.Resources.Bad_Symbol
                    lblCheck6.ForeColor = Color.Firebrick
                    lblCheck6.Text = "(RDP) Sessions " & My.Resources.strCcCheckFailed
                    txtCheck6.Text = My.Resources.strCcEOLFailed

                    mC.AddMessage(Messages.MessageClass.WarningMsg, "EOLWTSCOM " & errorMsg, True)
                    mC.AddMessage(Messages.MessageClass.ErrorMsg, ex.Message, True)
                End Try
            End Sub
#End Region
            
        End Class
    End Namespace
End Namespace