Control Array

[Bobbo70]

Hi All;
I know how to make a control array in run time for normal control and form but I want to make a control array of frame with its contents within a tab control to make each tab contain one index of the frame and its content control(s). How can I do it????

[RhinoBull]

What Tab control are you using?

[MartinLiss]

Labels won't work with this.

Option Explicit
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Private Sub Command1_Click()
    Dim lngTab As Long
    Dim lngSaveLeft As Long
    
    lngSaveLeft = Frame1(0).Left
    
    For lngTab = 2 To SSTab1.Tabs
        SSTab1.Tab = lngTab - 1
        Load Frame1(lngTab - 1)
        SetParent Frame1(lngTab - 1).hWnd, SSTab1.hWnd
        Frame1(lngTab - 1).Visible = True
        ' This is important. The tab control operates by moving controls off
        ' and back on the screen so we need to use the saved value of the
        ' original frame or you won't be able to see them
        Frame1(lngTab - 1).Left = lngSaveLeft
        Load Text1(lngTab - 1)
        Text1(lngTab - 1).Visible = True
        SetParent Text1(lngTab - 1).hWnd, Frame1(lngTab - 1).hWnd
    Next
End Sub