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