主题：关于除此之外全部关闭

Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
Dim iIndex As Integer = tab.SelectedIndex
For count As Integer = 0 To tab.TabPages.Count-1
    If count = iIndex Or count = 0 Then
    Else
        'Forms(tab.SelectedPage.Name).Close
        tab.TabPages.Delete(count)
    End If
Next

代码执行老是有问题，我怀疑是删除过程中索引是变化的，我该如何写代码呢？除了用名称的方法