timer interval 100Code: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