SSTab question/ creating controls

[kp1]

Background:
This entire program is a POS (Point of Sale) program for invoicing/inventory control.

The SSTab control is being used in a module for receiving trade-in/purchased items from customers.

Application:
The user will enter the item data in the SSTab. If there is more than one item purchased/traded-in, then additional tabs are needed.

Problem:
After creating the next tab, the textboxes, labels or any other control created (load ....) will not display. I don't know if it is showing up in the SSTab control or elsewhere or not at all.

Here is a small segment of the code I use to add the next tab and create controls.

Private Sub cmdAddItem_Click()
Dim tTabs As Integer 'This will be used to hold the # of tabs, etc
tTabs = SSTab1.Tabs
SSTab1.Tabs = tTabs + 1

'this will put us on the newly created tab
SSTab1.Tab = tTabs

Load Text6(tTabs)
Text6(tTabs).Left = Text6(0).Left
Text6(tTabs).Width = Text6(0).Width
Text6(tTabs).Top = Text6(0).Top
Text6(tTabs).Height = Text6(0).Height
Text6(tTabs).Visible = True

. . . . . . etc......

Help!

[gibra]

- start a new project, add SSTAB control
- set SSTab1.Tabs = 1 (remove last two):
- add a Text1(0) control in Tab1
- add a Command1 to a form

Paste below code:

 Private Sub Command1_Click()
    Dim idx As Integer
    
    SSTab1.TabsPerRow = 8
    SSTab1.Tabs = SSTab1.Tabs + 1
    idx = SSTab1.Tabs - 1
        
    SSTab1.Tab = idx
    
    Load Text1(idx)
    Text1(idx).Move 500, 500, 1200, 285
    Text1(idx).Text = "Text1 - " & idx
    Text1(idx).Visible = True
    
End Sub

[kp1]

thanks for the help!