VB 2008 - Dubugen Fehler

Public Class Form2

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

        My.Computer.Keyboard.SendKeys("{Enter}")
        My.Computer.Keyboard.SendKeys(TextBox3.Text)
        My.Computer.Keyboard.SendKeys("{Enter}")
        My.Computer.Keyboard.SendKeys(TextBox4.Text)
        My.Computer.Keyboard.SendKeys("{Enter}")

    End Sub

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

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        System.Diagnostics.Process.Start("http://www.elitepvpers.com/forum/members/2068957--nikolaus.html")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox(" ©2009 by .Nikolaus darf nicht auf anderen Seiten als Elitepvpers veröffendlicht werden.")
    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class