[HELP] Wtf is wrong??

Public Class Form1

    Private Property Button5_Click As Boolean

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Button1.Text = "Spam Started"
        Button3.Text = "Stop"
        Button5_Click = True
        Timer1.Enabled = True
        Timer3.Enabled = True
        Timer4.Enabled = True
        Timer5.Enabled = True
        Button2.Enabled = False
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Button1.Text = "Start"
        Button3.Text = "Spam Stopped"
        Button2.Enabled = True
        Timer1.Enabled = False
        Timer3.Enabled = False
        Timer4.Enabled = False
        Timer5.Enabled = False
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Button2.Text = "Goodbye!"
        timer2.enabled = True

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        SendKeys.Send(TextBox2.Text)
        SendKeys.Send("{Enter}")
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Timer1.Interval = TextBox1.Text
        Timer3.Interval = TextBox1.Text
        Timer4.Interval = TextBox1.Text
        Timer5.Interval = TextBox1.Text
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        End
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        MsgBox("Golden. and the MPGH Visual Basic section!")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim SAPI
        SAPI = CreateObject("sapi.spvoice")
        SAPI.Speak("Thanks For Using!")
        CheckBox1.Checked = True
        TextBox2.Enabled = True
        TextBox3.Enabled = False
        TextBox4.Enabled = False
        TextBox5.Enabled = False
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = False Then
            TextBox2.Enabled = False
        ElseIf CheckBox1.Checked = True Then
            TextBox2.Enabled = True
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            TextBox3.Enabled = True
        ElseIf CheckBox2.Checked = False Then
            TextBox3.Enabled = False
        End If

    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            TextBox4.Enabled = True
        ElseIf CheckBox3.Checked = False Then
            TextBox4.Enabled = False
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            TextBox5.Enabled = True
        ElseIf CheckBox4.Checked = False Then
            TextBox5.Enabled = False
        End If
    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        If TextBox3.Enabled = True Then
            SendKeys.Send(TextBox3.Text)
            SendKeys.Send("{Enter}")
        ElseIf TextBox3.Enabled = False Then
            Timer3.Enabled = False
        End If
    End Sub

    Private Sub Timer4_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        If TextBox4.Enabled = True Then
            SendKeys.Send(TextBox4.Text)
            SendKeys.Send("{Enter}")
        ElseIf TextBox4.Enabled = False Then
            Timer4.Enabled = False
        End If
    End Sub

    Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
        If TextBox5.Enabled = True Then
            SendKeys.Send(TextBox5.Text)
            SendKeys.Send("{Enter}")
        ElseIf TextBox5.Enabled = False Then
            Timer5.Enabled = False
        End If


    End Sub
End Class