Web Browser

Public Class Form1

    Dim i As Integer = 3


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim Browse As New WebBrowser
        TabControl1.TabPages.Add(1, "Tab" & i)
        TabControl1.SelectTab(i - 1)
        Browse.Name = "wb"
        Browse.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browse)
        i = i + 1
    End Sub

    Private Sub btnNewTab_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNewTab.Click
        Dim Browse As New WebBrowser
        TabControl1.TabPages.Add(1, "Tab" & i)
        TabControl1.SelectTab(i - 1)
        Browse.Name = "wb"
        Browse.Dock = DockStyle.Fill
        TabControl1.SelectedTab.Controls.Add(Browse)
        i = i + 1
    End Sub

    Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoBack()
    End Sub

    Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).GoForward()
    End Sub

    Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Stop()
    End Sub

    Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Refresh()
    End Sub

    Private Sub btnGo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGo.Click
        CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).Navigate(url.Text)
    End Sub
End Class