Private Sub btnCalculateStats_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculateStats.Click
        Dim intLvl As Integer = TextBox1.Text
        Dim intHP As Integer = TextBox2.Text
        Dim intAtk As Integer = TextBox3.Text
        Dim intDef As Integer = TextBox4.Text
        Dim intSpecialAttack As Integer = TextBox5.Text
        Dim intSpecialDefense As Integer = TextBox6.Text
        Dim intSpeed As Integer = TextBox7.Text
        Dim intFinalHP As String
        Dim intFinalAtk As String
        Dim intFinalDef As String
        Dim intFinalSpecialDefense As String
        Dim intFinalSpecialAttack As String
        Dim intFinalSpeed As String
        Dim intStatHP As Integer = TextBox12.Text
        Dim intStatAtk As Integer = TextBox12.Text
        Dim intStatDef As Integer = TextBox11.Text
        Dim intStatSpecialDefense As Integer = TextBox10.Text
        Dim intStatSpecialAttack As Integer = TextBox9.Text
        Dim intStatSpeed As Integer = TextBox8.Text
        Dim intIVTierHP As Integer
        Dim intIVTierAttack As Integer
        Dim intIVTierDefense As Integer
        Dim intIVTierSpecialAttack As Integer
        Dim intIVTierSpecialDefense As Integer
        Dim intIVTierSpeed As Integer
        Dim intBaseStatTierHP As Integer
        Dim intBaseStatTierAttack As Integer
        Dim intBaseStatTierDefense As Integer
        Dim intBaseStatTierSpecialAttack As Integer
        Dim intBaseStatTierSpecialDefense As Integer
        Dim intBaseStatTierSpeed As Integer


        'Check for invalid IVs
        'COPYRIGHT 2011 JAMES GETROST
        If intHP > 31 Then
            If intAtk > 31 Then
                If intDef > 31 Then
                    If intSpecialAttack > 31 Then
                        If intSpecialDefense > 31 Then
                            If intSpeed > 31 Then
                                If intStatAtk > 31 Then
                                    If intStatDef > 31 Then
                                        If intStatHP > 31 Then
                                            If intStatSpeed > 31 Then
                                                If intSpecialAttack > 31 Then
                                                    If intSpecialDefense > 31 Then
                                                        MessageBox.Show("IVs cannot be greater than 31", "Invalid IV")
                                                    Else
                                                    End If
                                                End If
                                            End If
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
        'Used with Permission
        'EOF

        'Calculate HP IV tier
        If intHP <= 10 Then
            intIVTierHP = 0
        ElseIf intHP <= 20 Then
            intIVTierHP = 0.5
        ElseIf intHP <= 25 Then
            intIVTierHP = 1
        ElseIf intHP <= 31 Then
            intIVTierHP = 2
        End If

        'Calculate Attack IV tier
        If intAtk <= 10 Then
            intIVTierAttack = 0
        ElseIf intAtk <= 20 Then
            intIVTierAttack = 0.5
        ElseIf intAtk <= 25 Then
            intIVTierAttack = 1
        ElseIf intAtk <= 31 Then
            intIVTierAttack = 2
        End If

        'Calculate Defense IV tier
        If intDef <= 10 Then
            intIVTierDefense = 0
        ElseIf intDef <= 20 Then
            intIVTierDefense = 0.5
        ElseIf intDef <= 25 Then
            intIVTierDefense = 1
        ElseIf intDef <= 31 Then
            intIVTierDefense = 2
        End If

        'Calculate Special Attack IV tier
        If intSpecialAttack <= 10 Then
            intIVTierSpecialAttack = 0
        ElseIf intSpecialAttack <= 20 Then
            intIVTierSpecialAttack = 0.5
        ElseIf intSpecialAttack <= 25 Then
            intIVTierSpecialAttack = 1
        ElseIf intSpecialAttack <= 31 Then
            intIVTierSpecialAttack = 2
        End If

        'Calculate Special Defense IV tier
        If intSpecialDefense <= 10 Then
            intIVTierSpecialDefense = 0
        ElseIf intSpecialDefense <= 20 Then
            intIVTierSpecialDefense = 0.5
        ElseIf intSpecialDefense <= 25 Then
            intIVTierSpecialDefense = 1
        ElseIf intSpecialDefense <= 31 Then
            intIVTierSpecialDefense = 2
        End If

        'Calculate Speed IV tier
        If intSpeed <= 10 Then
            intIVTierSpeed = 0
        ElseIf intSpeed <= 20 Then
            intIVTierSpeed = 0.5
        ElseIf intSpeed <= 25 Then
            intIVTierSpeed = 1
        ElseIf intSpeed <= 31 Then
            intIVTierSpeed = 2
        End If

        'Calculate Base HP tier
        If intStatHP <= 60 Then
            intBaseStatTierHP = 0.5
        ElseIf intStatHP <= 110 Then
            intBaseStatTierHP = 1
        ElseIf intStatHP <= 150 Then
            intBaseStatTierHP = 2
        ElseIf intHP >= 151 Then
            intBaseStatTierHP = 3
        End If

        'Calculate Base Attack tier
        If intStatAtk <= 60 Then
            intBaseStatTierAttack = 0.5
        ElseIf intStatAtk <= 110 Then
            intBaseStatTierAttack = 1
        ElseIf intStatAtk <= 150 Then
            intBaseStatTierAttack = 2
        ElseIf intAtk >= 151 Then
            intBaseStatTierAttack = 3
        End If

        'Calculate Base Defense tier
        If intStatDef <= 60 Then
            intBaseStatTierDefense = 0.5
        ElseIf intStatDef <= 110 Then
            intBaseStatTierDefense = 1
        ElseIf intStatDef <= 150 Then
            intBaseStatTierDefense = 2
        ElseIf intDef >= 151 Then
            intBaseStatTierDefense = 3
        End If

        'Calculate Base Special Attack tier
        If intStatSpecialAttack <= 60 Then
            intBaseStatTierSpecialAttack = 0.5
        ElseIf intStatSpecialAttack <= 110 Then
            intBaseStatTierSpecialAttack = 1
        ElseIf intStatSpecialAttack <= 150 Then
            intBaseStatTierSpecialAttack = 2
        ElseIf intStatSpecialAttack >= 151 Then
            intBaseStatTierSpecialAttack = 3
        End If

        'Calculate Base Special Defense tier
        If intStatSpecialDefense <= 60 Then
            intBaseStatTierSpecialDefense = 0.5
        ElseIf intStatSpecialDefense <= 110 Then
            intBaseStatTierSpecialDefense = 1
        ElseIf intStatSpecialDefense <= 150 Then
            intBaseStatTierSpecialDefense = 2
        ElseIf intSpecialDefense >= 151 Then
            intBaseStatTierSpecialDefense = 3
        End If

        'Calculate Base Speed tier
        If intStatSpeed <= 60 Then
            intBaseStatTierSpeed = 0.5
        ElseIf intStatSpeed <= 110 Then
            intBaseStatTierSpeed = 1
        ElseIf intStatSpeed <= 150 Then
            intBaseStatTierSpeed = 2
        ElseIf intSpeed >= 151 Then
            intBaseStatTierSpeed = 3
        End If











        'Calculating the HP Stats
        intFinalHP = (intLvl - 1) * (intIVTierHP + intBaseStatTierHP) + 10
        lblHP.Text = intFinalHP



    End Sub