Public Class TutorBrowser
    Public Sub New(ByVal url As String)
        InitializeComponent()
        Me.BrowserItem.Navigate(url)
    End Sub
    Public Sub New()
        InitializeComponent()
    End Sub

    Private Sub TutorBrowser_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim intX As Integer = Screen.PrimaryScreen.Bounds.Width
        Dim intY As Integer = Screen.PrimaryScreen.Bounds.Height
        Me.Width = intX
        Me.Height = intY

        Me.WindowState = FormWindowState.Maximized
    End Sub

    Private Sub BrowserItem_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs)
        Dim myElement As HtmlElement = BrowserItem.Document.ActiveElement()
        Dim target As String = myElement.GetAttribute("href")

        Me.BrowserItem.Navigate(target)
        Me.urlBar.Text = target.ToString
    End Sub

    Private Sub BrowserItem_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)
        Dim myElement As HtmlElement = BrowserItem.Document.ActiveElement()
        Dim target As String = myElement.GetAttribute("href")

        e.Cancel = True
        Dim newB As TutorBrowser
        newB = New TutorBrowser(target)
        newB.urlBar.Text = target.ToString

    End Sub

    Private Sub BrowserItem_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs)
        Dim myElement As HtmlElement = BrowserItem.Document.ActiveElement()
        Dim target As String = myElement.GetAttribute("href")

        Dim newB As TutorBrowser = New TutorBrowser(target)
        newB.urlBar.Text = target.ToString
    End Sub

End Class