こんにちは。
いつもここの掲示板には助けられています。

TabControlについて質問です。

TabControlを利用するプログラムを作成しています。
タブの追加、削除はユーザーが実施することとし、
追加されたら、追加タブをアクティブに、
削除されたら１つ左のタブをアクティブにする、という動作にしたいと思っており、
この削除の部分で質問です。

以下のようなプログラムを書きました。
動作結果は意図したものになりますが、
削除した後、一瞬だけ一番左のタブがアクティブになります。
Removeすると、デフォルトで一番左のタブが（インデックス 0 が？）アクティブになるのだと
思うのですが、これを回避する方法はありますでしょうか？
削除する度に一瞬だけ画面がちらついてカッコ悪いので・・・・。

よろしくお願いします。

    

'選択タブのインデックスを取得する 

Dim selectInt As Integer = TabControl1.SelectedIndex



'タブが１つしかなければ、削除しない 

If TabControl1.TabPages.Count > 1 Then



'タブを削除する 

　　TabControl1.TabPages.Remove(TabControl1.SelectedTab)



'削除したタブの１つ左をアクティブにする 

　　If selectInt <> 0 Then

　　　　TabControl1.SelectTab(selectInt - 1)

　　Else

　　　　TabControl1.SelectTab(0)

　　End If



End If