I have a form with a tab control sstab1. On each tab is a list box and a picture. When I resize them with code they get all screwed up and I can't figure out what's going on. It seems all the items I resize work fine except they appear on what ever tab is showing when the form loads.

Here is my code.

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

Lis0.Width = 3619
Lis0.Height = 4950
Lis0.Top = 1125
Lis0.Left = 4350

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

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 If
End Sub

Does anyone have any suggestions on how to resize this with code?

Thanks
BJ