Dim X As Integer, Y As Integer, Z As Integer, tCount As Integer

Z = 2

tCount = Z

For X = 0 To sstMain.Tabs - 1

sstMain.Tab = X

For Y = Z To Z + 10

Load txtData(tCount)

With txtData(tCount)

Set .Container = sstMain

.Tag = sstMain.TabCaption(X)

.Left = IIf(Y Mod 2 = 0, 280, 1480)

Debug.Print txtData(tCount - 1).Top

.Top = IIf(tCount Mod 2 = 0, IIf(tCount Mod 10 = Z, 700, 700 + txtData(tCount - 1).Top), txtData(tCount - 1).Top)

.Width = 1000

.Height = 100

.Visible = True

tCount = tCount + 1

End With

Next Y

Next X

sstMain.Tab = 0

S

Z = 2

tCount = Z

For X = 0 To sstMain.Tabs - 1

sstMain.Tab = X

For Y = Z To Z + 10

Load txtData(tCount)

With txtData(tCount)

Set .Container = sstMain

.Tag = sstMain.TabCaption(X)

.Left = IIf(Y Mod 2 = 0, 280, 1480)

Debug.Print txtData(tCount - 1).Top

.Top = IIf(tCount Mod 2 = 0, IIf(tCount Mod 10 = Z, 700, 700 + txtData(tCount - 1).Top), txtData(tCount - 1).Top)

.Width = 1000

.Height = 100

.Visible = True

tCount = tCount + 1

End With

Next Y

Next X

sstMain.Tab = 0

S