TabStripSample

Option Explicit
Private Sub cmdexit_Click()
Unload Me
End Sub
'_________________________________________________________


Private Sub Form_Load()
On Error Resume Next
Dim x As Integer
'At design time you would move your containers off

'to -20000 or some other odd number so you can work

'with one container at a time. do this so in design

'mode you dont have to worry about movin things around


Me.Move 0, 0, 4900, 3375 'set StartUpPos Property to 2, or specify left and top
For x = 0 To tbsExample.Tabs.Count - 1 'Loop through the tabs
'subtract 1 if your containers are 0 based otherwise dont subtract 1

'by default tab strips are 1 based

'FYI : A tabstrip uses the collection properties of vb

With Picture1(x)
.BorderStyle = 0
.Visible = False
.Move tbsExample.ClientLeft, tbsExample.ClientTop, tbsExample.ClientWidth, tbsExample.ClientHeight
End With
Next x
'first tab is selected by default, if you want a different tab select

'uncomment below, and change the index value of the container

'tbsExample.Tabs(1).Selected = True Form loads With first tab selected

Picture1(0).Visible = True 'Show first container
End Sub
'_________________________________________________________


Private Sub tbsExample_Click()
Dim intSelTab As Integer
Static intCurTab As Integer
intSelTab = tbsExample.SelectedItem.Index - 1
'current tab = selected tab dont waste time showing the same tab

If intCurTab = intSelTab Then Exit Sub
intCurTab = intSelTab 'save new tab
'NOTE: This could be done simpler but it does not lend itself

'to be maintained.

Select Case intSelTab
Case 0 'Tab #1,usually you would put more descriptive text
Picture1(0).Visible = True
Picture1(1).Visible = False
Picture1(2).Visible = False
Picture1(3).Visible = False
lblMsg = "Tab #1"
Case 1 'Tab #2
Picture1(1).Visible = True
Picture1(0).Visible = False
Picture1(3).Visible = False
Picture1(2).Visible = False
lblMsg = "Tab #2"
Case 2 'Tab #3
Picture1(2).Visible = True
Picture1(0).Visible = False
Picture1(1).Visible = False
Picture1(3).Visible = False
lblMsg = "Tab #3"
Case 3 'Tab #4
Picture1(3).Visible = True
Picture1(0).Visible = False
Picture1(1).Visible = False
Picture1(2).Visible = False
lblMsg = "Tab #4"
End Select
Set lblMsg.Container = Picture1(intSelTab)
Set cmdExit.Container = Picture1(intSelTab)
End Sub