code to create tab:
Private Sub Tab()
TabControl1.TabPages.Add(i)
TabControl1.SelectTab(i)
i = i + 1
Dim Browse As New WebBrowser
Browse.Name = "WebBrowser1"
Browse.Dock = DockStyle.Fill
Browse.IsWebBrowserContextMenuEnabled = False
Browse.ScriptErrorsSuppressed = True
If My.Settings.dcontext = "yes" Then
Browse.ContextMenuStrip = ContextMenuStrip1
End If
AddHandler Browse.Navigated, AddressOf Browse_done
AddHandler Browse.NewWindow, AddressOf Browse_nwin
AddHandler Browse.PreviewKeyDown, AddressOf Browse_key
TabControl1.SelectedTab.Controls.Add(Browse)
Browse.Navigate(My.Settings.Home.ToString)
End Sub
Problem is, that some objects have to be shared between threads...

New Topic/Question
Reply




MultiQuote


|