VB Source CODE [ Web Browser and etc ]

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressBar1.Value = 1
        ProgressBar1.Increment(+80)
        ProgressBar1.Increment(+100)
        Timer1.Start()
        Timer1.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ProgressBar1.Value = 0
        Timer1.Stop()
        Timer1.Enabled = False
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ProgressBar1.Increment(+1)
        On Error Resume Next
        SendKeys.Send(TextBox1.Text)
        On Error Resume Next
        SendKeys.Send("{Enter}")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Welcome")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("Thanks for using this tools")
        Application.Exit()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Forward(Button)
        WebBrowser1.GoForward()
    End Sub

    Private Sub Backward_Click( _
        ByVal sender As Object, ByVal e As EventArgs)


        ' Backward if about:blank is loaded  
        ' content specified by the DocumentText property. 
        If Not WebBrowser1.Url.Equals("about:blank") Then
            WebBrowser1.GoBack()
        End If

    End Sub

    Private Sub RefreshButton_Click( _
        ByVal sender As Object, ByVal e As EventArgs) _
        Handles ToolStripButton3.Click

        WebBrowser1.Refresh()

    End Sub

    Private Sub WebBrowser1_ProgressChanged(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs) Handles WebBrowser1.ProgressChanged, WebBrowser1.ProgressChanged
        Try
            ProgressBar1.Maximum = e.MaximumProgress
            ProgressBar1.Value = e.CurrentProgress
        Catch ex As Exception
        End Try
    End Sub

    Private Sub stopButton_Click( _
        ByVal sender As Object, ByVal e As EventArgs) _
        Handles ToolStripButton1.Click

        WebBrowser1.Stop()

    End Sub

    ' Navigates to the given URL if it is valid. 
    Private Sub Navigate(ByVal address As String)

        If String.IsNullOrEmpty(address) Then Return
        If address.Equals("about:blank") Then Return
        If Not address.StartsWith("http://") And _
            Not address.StartsWith("https://") Then
            address = "http://" & address
        End If

        Try
            webBrowser1.Navigate(New Uri(address))
        Catch ex As System.UriFormatException
            Return
        End Try

    End Sub

    ' Navigates to the URL in the address box when  
    ' the Go button is clicked. 
    Private Sub goButton_Click( _
        ByVal sender As Object, ByVal e As EventArgs)


        Navigate(ToolStripTextBox1.Text)

    End Sub