[ممدوح]

جرب هذا الكود

كود :

#Region " CreateNewFormWithWebBroswer(url As Uri) "
    Private Sub CreateNewFormWithWebBroswer(url As Uri)
        Dim frm As New Form With {.RightToLeft = RightToLeft.Yes, .RightToLeftLayout = True}
        AddHandler frm.FormClosing, AddressOf frmFormClosing
        Dim wb As New WebBrowser With {.Dock = DockStyle.Fill, .ScriptErrorsSuppressed = True}
        wb.Navigate(url)
        AddHandler wb.DocumentCompleted, AddressOf wb_DocComp
        frm.Controls.Add(wb)
        frm.Show()
    End Sub
    Private Sub wb_DocComp(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
        sender.Parent.Text = sender.Document.Title
    End Sub
    Private Sub frmFormClosing(sender As Object, e As FormClosingEventArgs)
        sender.Dispose()
    End Sub
#End Region

طريقة استخدامه

كود :

Private Sub Button99_Click(sender As Object, e As EventArgs) Handles Button99.Click
    CreateNewFormWithWebBroswer(Me.WebBrowser1.Url)
End Sub