Private Sub NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs)

        Dim NewURL As String = CType(TabControl1.SelectedTab.Controls.Item(0), WebBrowser).StatusText

        Dim frmNew As New Form1

        frmNew.WebBrowser1.Navigate(NewURL)

        frmNew.Show()

        e.Cancel = True

    End Sub