The problem is that even if the ssTab control looks like it has one container per tab it haven't. The control just move the items on the tabs that aren't visible far out to the left. What your code is doing is moving them back so thay are all visible whatever tab is selected.

What you want to do is to first check which tab is active and then move/resize only the controls on that tab.

answer = MsgBox("Resize?", vbYesNo, "Resize?")
If answer = vbYes Then
sstab1.Height = 6394
sstab1.Width = 8419
sstab1.Left = 450
sstab1.Top = 1200

Select case sstab1.Tab
Case 0
Lis0.Width = 3619
Lis0.Height = 4950
Lis0.Top = 1125
Lis0.Left = 4350

Image1.Height = 3056
Image1.Left = 4500
Image1.Top = 1800
Image1.Width = 3056

Case 1
Lis1.Height = 4950
Lis1.Left = 4350
Lis1.Top = 1125
Lis1.Width = 3619

Image2.Height = 2531
Image2.Left = 300
Image2.Top = 1950
Image2.Width = 3300
End Select
End If

Good luck!

------------------
Joacim Andersson
[email protected]
[email protected]
www.YellowBlazer.com