dynamically adding & removing controls

[Aaron Young]

Place a container for each RTF box on each Tab of the SSTab control, i.e. a Picturebox, then use code similar to the following:

Private Sub Form_Load()
    Dim lCount As Long
    
    For lCount = 0 To 6
        If lCount > 0 Then Load rtfRTFs(lCount)
        With rtfRTFs(lCount)
            Set .Container = picContainers(lCount)
            With picContainers(lCount)
                .Move 12, SSTab1.TabHeight + 12, SSTab1.Width - 24, SSTab1.Height - SSTab1.TabHeight - 24
                .BorderStyle = vbBSNone
            End With
            .Move 0, 0, picContainers(lCount).ScaleWidth, picContainers(lCount).ScaleHeight
            .Text = "Tab" & lCount + 1
            .Visible = True
        End With
    Next
End Sub