Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click
        Dim intLvl As Integer = txtLevel.Text
        Dim intHP As Integer = txtHP.Text
        Dim intAtk As Integer = txtAtk.Text
        Dim intDef As Integer = txtDef.Text
        Dim intSpecialAttack As Integer = txtSpecialAttack.Text
        Dim intSpecialDefense As Integer = txtSpecialDefense.Text
        Dim intSpeed As Integer = txtSpeed.Text
        Dim lblHP As Integer
        Dim lblAtk As Integer
        Dim lblDef As Integer
        Dim lblSpecialDefense As Integer
        Dim lblSpecialAttack As Integer
        Dim lblSpeed As Integer
        Dim intStatHP As Integer = txtStatHP.Text
        Dim intStatAtk As Integer = txtStatAtk.Text
        Dim intStatDef As Integer = txtStatDef.Text
        Dim intStatSpecialDefense As Integer = txtStatSpecialAttack.Text
        Dim intStatSpecialAttack As Integer = txtStatSpecialAttack.Text
        Dim intStatSpeed As Integer = txtStatSpeed.Text
        'Check for invalid IVs
        'COPYRIGHT 2011 JAMES GETROST
        If intHP > 32 Then
            If intAtk > 32 Then
                If intDef > 32 Then
                    If intSpecialAttack > 32 Then
                        If intSpecialDefense > 32 Then
                            If intSpeed > 32 Then
                                If intStatAtk > 32 Then
                                    If intStatDef > 32 Then
                                        If intStatHP > 32 Then
                                            If intStatSpeed > 32 Then
                                                If intSpecialAttack > 32 Then
                                                    If intSpecialDefense > 32 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




        'Calculating the HP Stats
        lblHP = (intLvl - 1) * (intHP * intStatHP) + 10