Public Class Holder

    Private Sub EffectualTheme1_Click(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub EffectualTheme1_Click_1(sender As System.Object, e As System.EventArgs) Handles EffectualTheme1.Click

    End Sub

    Private Sub EffectualGroupBox1_Click(sender As System.Object, e As System.EventArgs) Handles EffectualGroupBox1.Click

    End Sub

    Private Sub EffectualButtonOrange2_Click(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub LinkLabel1_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

    End Sub

    Private Sub ToolTip1_Popup(sender As System.Object, e As System.Windows.Forms.PopupEventArgs) Handles ToolTip1.Popup

    End Sub

    Private Sub Label1_Click(sender As System.Object, e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub EffectualButtonOrange2_Click_1(sender As System.Object, e As System.EventArgs) Handles EffectualButtonOrange2.Click
        Dim FolderName As String
        FolderName = SigCodeInpt.Text
        If SigCodeInpt.Text = "WEBF-YGDSU" Or SigCodeInpt.Text = "WEBF-AJRKF" Or SigCodeInpt.Text = "WEBF-ZKFQP" Or SigCodeInpt.Text = "WEBF-BJEUD" Or SigCodeInpt.Text = "WEBF-WKGLA" Then
            MsgBox("" & FolderName & " " & vbNewLine & " Was verified by Maker's Lair servers successfully", MsgBoxStyle.Information, "Login")
            Close()
        Else
            If SigCodeInpt.Text = "" Then

            Else
                MsgBox("" & FolderName & " Could not be verified. Serial number invalid, in use or banned", MsgBoxStyle.Critical, "Error")
            End If
        End If

    End Sub

    Private Sub EffectualButtonGray1_Click(sender As System.Object, e As System.EventArgs) Handles EffectualButtonGray1.Click
        SigCodeInpt.Text = Nothing

    End Sub

    Private Sub SigCodeInpt_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles SigCodeInpt.KeyPress
        Dim FolderName As String
        FolderName = SigCodeInpt.Text
        If Asc(e.KeyChar) = 13 Then
            e.Handled = True
            If SigCodeInpt.Text = "WEBF-YGDSU" Or SigCodeInpt.Text = "WEBF-AJRKF" Or SigCodeInpt.Text = "WEBF-ZKFQP" Or SigCodeInpt.Text = "WEBF-BJEUD" Or SigCodeInpt.Text = "WEBF-WKGLA" Then
                MsgBox("" & FolderName & " " & vbNewLine & " Was verified by Maker's Lair servers successfully", MsgBoxStyle.Information, "Login")
                Close()
            Else
                If SigCodeInpt.Text = "" Then

                End If
            End If
        End If

    End Sub

    Private Sub SigCodeInpt_TextChanged(sender As System.Object, e As System.EventArgs)

    End Sub

    Private Sub SigCodeInpt_TextChanged_1(sender As System.Object, e As System.EventArgs) Handles SigCodeInpt.TextChanged
        If SigCodeInpt.Text.Length > 0 Then
            EffectualProgressBarOrange1.Value = 10
        Else
            EffectualProgressBarOrange1.Value = 0
        End If

        If SigCodeInpt.Text.Length > 1 Then
            EffectualProgressBarOrange1.Value = 20
        End If

        If SigCodeInpt.Text.Length > 2 Then
            EffectualProgressBarOrange1.Value = 30
        End If

        If SigCodeInpt.Text.Length > 3 Then
            EffectualProgressBarOrange1.Value = 40
        End If

        If SigCodeInpt.Text.Length > 4 Then
            EffectualProgressBarOrange1.Value = 50
        End If

        If SigCodeInpt.Text.Length > 5 Then
            EffectualProgressBarOrange1.Value = 60
        End If

        If SigCodeInpt.Text.Length > 6 Then
            EffectualProgressBarOrange1.Value = 70
        End If

        If SigCodeInpt.Text.Length > 7 Then
            EffectualProgressBarOrange1.Value = 80
        End If

        If SigCodeInpt.Text.Length > 8 Then
            EffectualProgressBarOrange1.Value = 90
        End If

        If SigCodeInpt.Text.Length > 9 Then
            EffectualProgressBarOrange1.Value = 100
        End If

        If SigCodeInpt.Text = "" Then
            Changetextaftinpt.Location = New Point(395, 72)
            Changetextaftinpt.Text = "Empty"
            Changetextaftinpt.ForeColor = Color.Gray
        Else
            Changetextaftinpt.Location = New Point(385, 72)
            Changetextaftinpt.Text = "Awaiting"
            Changetextaftinpt.ForeColor = Color.Gray
        End If

        If SigCodeInpt.Text.Length > 9 Then
            Changetextaftinpt.Location = New Point(380, 72)
            Changetextaftinpt.Text = "Complete"
            Changetextaftinpt.ForeColor = Color.Green
        Else
            Changetextaftinpt.Location = New Point(385, 72)
            Changetextaftinpt.Text = "Awaiting"
            Changetextaftinpt.ForeColor = Color.Gray
        End If

        If SigCodeInpt.Text.Length < 1 Then
            Changetextaftinpt.Location = New Point(395, 72)
            Changetextaftinpt.Text = "Empty"
            Changetextaftinpt.ForeColor = Color.Gray
        End If

        If SigCodeInpt.Text = "WEBF-YGDSU" Or SigCodeInpt.Text = "WEBF-AJRKF" Or SigCodeInpt.Text = "WEBF-ZKFQP" Or SigCodeInpt.Text = "WEBF-BJEUD" Or SigCodeInpt.Text = "WEBF-WKGLA" Then
            Changetextaftinpt.Location = New Point(380, 72)
            Changetextaftinpt.Text = "Validated"
            Changetextaftinpt.ForeColor = Color.Green
        End If

    End Sub

    Private Sub Changetextaftinpt_Click(sender As System.Object, e As System.EventArgs) Handles Changetextaftinpt.Click

    End Sub

    Private Sub PictureBox1_Click(sender As System.Object, e As System.EventArgs)
        Close()

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.Close()

    End Sub

    Private Sub Label2_Click(sender As System.Object, e As System.EventArgs) Handles CrossOffTextLab.Click
        Me.Close()

    End Sub

    Private Sub EffectualButtonOrange1_Click(sender As System.Object, e As System.EventArgs) Handles EffectualButtonOrange1.Click
        System.Diagnostics.Process.Start("http://environment.makerslair.co.uk/serial_vouch.gen.php")
        Me.WindowState = FormWindowState.Minimized

    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs)
        Dim SecondForm As New CondoleHolderCsharp
        SecondForm.Show()
        Me.WindowState = FormWindowState.Minimized

    End Sub

    Private Sub EffectualProgressBarOrange1_Click(sender As System.Object, e As System.EventArgs) Handles EffectualProgressBarOrange1.Click

    End Sub
End Class