Public Function SelectTabByHead(tabControlH, tabHeadStr)
    tabCount = tabControlH.Object.TabPages.Count
    For i = 0 to tabCount - 1
        Set currentTabPage = tabControlH.Object.TabPages.Item(i)
        tabHead = currentTabPage.Text
        If tabHead = tabHeadStr Then
            tabControlH.Object.SelectedTabPageIndex = currentTabPage.TabIndex
        End If
    Next
End Function