Dim hTabStrip As TabStrip Dim hTabStripContainer As .TabStripContainer hTabStripContainer = hTabStrip [ Index As Integer ]