VB6 - Dynamic Tabbed Web Browser

This bit of code will dynamically add a Tab which
contains "its own" WebBrowser instance.

On your form you need:

• CommandButton named cbAddTab
• SSTab control named SSTab1, with default Tabs = 3
• WebBrowser control named WB1, placed on Tab 0, Index set to 0

Code:

---

' in declarations
Public nnTABS As Integer

' the sub
Private Sub cbAddTab_Click()
    With SSTab1
        ' 1. first time it is clicked - sets up the controls
        If nnTABs = 0 Then
            nnTABs = nnTABs + 1
            .Visible = True
            .Top = 4500
            .Left = 5500
            .Width = 10000
            .Height = 7000
            .Tabs = 1
            .TabsPerRow = 10
            .TabMaxWidth = 1000
            With WB1(0)
                .Top = 1000
                .Left = 500
                .Height = 5500
                .Width = 9000
                .Visible = True
                .Navigate2 "cme.com"
            End With
        ' 2 subsequent clicks -- adds new tab and browser instance
        ElseIf nnTABs > 0 Then
            nnTABs = nnTABs + 1
            With SSTab1
                .Tabs = nnTABs
                .Tab = nnTABs - 1
            End With
            Load WB1(nnTABs - 1)
            With WB1(nnTABs - 1)
                .Container = SSTab1
                .Top = 1000
                .Left = 500
                .Height = 5500
                .Width = 9000
                .Visible = True
                If nnTABs = 2 Then
                    .Navigate2 "yahoo.com"
                ElseIf nnTABs = 3 Then
                    .Navigate2 "google.com"
                ElseIf nnTABs = 4 Then
                    .Navigate2 "vbforums.com"
                End If
            End With
        End If
    End With
End Sub

---

A few comments are in order

1. I hardwired the URLs (highlighted in blue) -- you'll probably want to make your app smarter
2. I only defined things up to 4 tabs, so you might want to do more
3. When cbAddTab is clicked first time, only 1 Tab appears
4. With each subsequent click, a new tab is added with its own browser
5. At any time you can click an extisting tab and it will show its browser
6. Natch, you'll want to adapt .Top, .Left, etc to suit your needs

It is only a prototype. Much improvement is probably in order.
Feel free to comment.

Spoo