マルチページの表示切替時に中身が表示されるようにする方法

Question

マルチページのタブを表示非表示切り替えようとしたところ
タブの表示非表示はされるのだが
タブ0だけ中身が表示され、タブ1以降の中身が表示されません。

TabIndex単体だとタブ1以降も中身は表示されるのですが、visibleをすると中身の表示がうまくいかなくなります。
TabIndexを先にしたり後にしたりで表示順番なのかなとためしましたが改善しませんでした。
原因もわからないため、どうすれば切替時にタブの中身も表示されるのか教えてほしいです。

Sub hogehoge(hoge As Long)  '表示したいタブの番号

With MultiPage1
    For i = 0 To 2 'タブ番号
        If i = hoge Then
            .Pages(i).Visible = True 'タブ表示
            .TabIndex = i
        Else
            .Pages(i).Visible = False 'タブ非表示
        End If
    Next
End With

End Sub