Me.Tab_Tabs.TabPages.Add("Tab " & Me.Tab_Tabs.TabPages.Count + 1)
Me.Tab_Tabs.SelectTab(Me.Tab_Tabs.TabPages.Count - 1)
 
Dim wb As New WebBrowser
wb.Name = "web_" & Me.Tab_Tabs.TabPages.Count 
Me.Tab_Tabs.SelectedTab.Controls.Add(wb)
wb.Dock = DockStyle.Fill

 
  Private Sub tscmb_url_KeyPress(ByVal sender As System.Object, ByVal e As _
    System.Windows.Forms.KeyPressEventArgs) Handles tscmb_url.KeyPress
        Dim Browsing As String
        If e.KeyChar = Chr(13) Then
            If Me.Tab_Tabs.TabPages.Count > 1 Then
                gewTabname = Me.Tab_Tabs.SelectedTab.Text
                gewTabname = gewTabname.Substring(gewTabname.IndexOf(" ") + 1)
 
                For i = 1 To websitesges
                    If gewTabname = i Then
                        Browsing = "Me.web_" & i & ".Navigate(" & _
                          "Me.tscmb_url.Text))"
                    End If
                Next
            End If
        End If
    End Sub

Mit freundlichen Gr??en

Andre Molenda