Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim tb As New TabPage("Tab")
        Dim w As New WebBrowser
        w.Dock = DockStyle.Fill
        w.Navigate(Application.StartupPath & "/de.html")
        tb.Controls.Add(w)
        Me.TabControl1.TabPages.Add(tb)
    End Sub

Gru?

Silver