I was wondering if anyone knew how to change the position of a tabpage on a
tabcontrol.

Say the tabcontrol has 3 tabpages on it.  They are named tabpage1, tabpage2,
tabpage3 and ordered respectfully.  I want the user to be able to press a
button on the page and move say tabpage 2 to the position that tabpage1 is
in.  The new order would be tabpage2, tabpage1, and tabpage3.

I have not found a way to do this as of yet and can not seem to find any
samples that would help me in doing this, so if anyone could point me in the
right direction I would appreciate it.

Thanks,

Todd

You are discovering the joys 8-( of using the Microsoft
tab control.  I have had problems with it also.  The big
problem you have is some how swapping all the controls on
a tab page with another.  You can use an array of panel
controls, 1 per tab, additionally you can just swap the
tab label names.  Finally, when the user selects the tab
of interest, vector through a mapping of tab to panel and
paint the panel in all its glory.  Never said it was easy.

Pat

    Private Sub MoveTabPageUpOneSlot(ByVal TabControlToChange As TabControl,
ByVal Page As TabPage)
        Dim iPosition As Integer = TabControlToChange.TabPages.IndexOf(Page)
        If (iPosition = 0) Then Return 'Already first
        iPosition -= 1
        If (Not TabControlToChange.TabPages.Contains(Page)) Then Return
'Page not part of the control
        Dim oTabPage As TabPage
        'Copy the pages someplace
        Dim oPages As New ArrayList()
        For Each oTabPage In TabControlToChange.TabPages
            oPages.Add(oTabPage)
        Next
        TabControlToChange.TabPages.Clear()
        Dim j As Integer
        For j = 0 To oPages.Count - 1
            oTabPage = CType(oPages(j), TabPage)
            If (j = iPosition) Then TabControlToChange.TabPages.Add(Page)
            If (Not oTabPage Is Page) Then
TabControlToChange.TabPages.Add(oTabPage)
        Next
        TabControlToChange.Invalidate() 'Forces tab control to be redrawn
    End Sub

'Declare a clone of the selected node.
Dim objNode As TreeNode = Me.tvwProduct.SelectedNode.Clone
Dim colTabpages As New Collection()
Dim tpPage As TabPage
Dim i As Integer

'Declare a variable for the new and old indexes.
Dim intNewIndex As Integer
Dim intOldIndex As Integer = Me.tvwProduct.SelectedNode.Index

'Check if the old index is greater than one, if not then it is at the top of
the tree.
If intOldIndex > 0 Then

    'Get the new index.
    intNewIndex = intOldIndex - 1

    'Remove the old node.
    Me.tvwProduct.Nodes(0).Nodes(0).Nodes.RemoveAt(intOldIndex)

    'Insert the cloned node into the position it is supposed to be.
    Me.tvwProduct.Nodes(0).Nodes(0).Nodes.Insert(intNewIndex, objNode)
    Me.tvwProduct.SelectedNode =
Me.tvwProduct.Nodes(0).Nodes(0).Nodes(intNewIndex)
    Me.tvwProduct.SelectedNode.ExpandAll()

    'Change the order of the tabpages (forms).
    For i = 0 To Me.tabForms.TabPages.Count - 1
    'Check if the form is at the new index.
        If i = intNewIndex Then
        'Swap the tabpages that is changing with the tabpage that it is
going to.
            colTabpages.Add(Me.tabForms.TabPages(intOldIndex))
            colTabpages.Add(Me.tabForms.TabPages(i))
            i = intOldIndex
        Else
            colTabpages.Add(Me.tabForms.TabPages(i))
        End If
    Next

   'Clear the tabcontrol of all tabpages.
    Me.tabForms.TabPages.Clear()

    'Add the tabpages back in the order that the user changed.
    For i = 1 To colTabpages.Count
        Me.tabForms.TabPages.Add(colTabpages.Item(i))
    Next

    Me.tabForms.SelectedTab = Me.tabForms.TabPages(intNewIndex)
End If