Visual Basic 08 Frage

Public Class Form1
    Dim Kills As Double
    Dim Deaths As Double
    Dim Flash As Double
    Dim Land As Double
    Dim MedicKit As Double
    Dim MedicBoxen As Double
    Dim EXP As Double


    Private Sub EXPBerechnerToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXPBerechnerToolStripMenuItem.Click
       [COLOR="Red"] Kills = TextBox1.Text
        Deaths = TextBox2.Text
        Flash = TextBox3.Text
        Land = TextBox4.Text
        MedicKit = TextBox5.Text
        MedicBoxen = TextBox6.Text[/COLOR]        Label1.Text = ("In den unteren Boxen bitte Kills, usw. eintragen !")
        Label2.Text = (" Kills")
        Label3.Text = (" Deaths")
        Label4.Text = (" Flash Minen")
        Label5.Text = ("Land Minen")
        Label6.Text = ("Medic Kit")
        Label7.Text = ("Medic Boxen")
        Label8.Text = ("Das sind die EXP")
        Label4.Visible = True
        Label5.Visible = True
        Label6.Visible = True
        Label7.Visible = True
        TextBox3.Visible = True
        TextBox4.Visible = True
        TextBox5.Visible = True
        TextBox6.Visible = True
        TextBox7.Visible = True
        CheckBox1.Visible = True
        If CheckBox1.Checked = True Then
            TextBox7.Text = Kills + Deaths + Flash + Land + MedicKit + MedicBoxen

        End If


    End Sub

Public Class Form1
    Dim FirstNumber As Double
    Dim SecondNumber As Double



    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        LinkLabel1.LinkVisited = True
        System.Diagnostics.Process.Start _
        ("www.gamersfirst.com/Warrock_Tool_by_v0ltagezz")
    End Sub

    Private Sub LinkLabel2_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel2.LinkClicked
        LinkLabel2.LinkVisited = True
        System.Diagnostics.Process.Start _
        ("www.elitepvpers.com/forum/warrock")

    End Sub
    Private Sub LinkLabel3_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        LinkLabel3.LinkVisited = True
        System.Diagnostics.Process.Start _
        ("www.warrock.info")

    End Sub

    Private Sub LinkLabel4_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel4.LinkClicked
        LinkLabel4.LinkVisited = True
        System.Diagnostics.Process.Start _
        ("www.nexon.com")
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        FirstNumber = TextBox1.Text
        SecondNumber = TextBox2.Text
        If CheckBox1.Checked = True Then
            TextBox3.Text = FirstNumber / SecondNumber
            If TextBox3.Text > 10 Then
                Do
                    MsgBox("HACKER")
                Loop

            End If
        End If

    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If TextBox4.Text = ("L85A1") Then
            MsgBox("DAMAGE 50%,SPEED 60%, ACCURACY 52%, RECOIL 57%")

        End If

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

End Class