Private Sub UserForm_Initialize()
PaintTab MultiPage1.SelectedItem, True, vbRed, , False, Flat
End Sub
Private Sub MultiPage1_Change()
Dim oPage As Control
For Each oPage In Me.MultiPage1.Pages
PaintTab oPage, IIf(oPage Is MultiPage1.SelectedItem, True, False), vbRed, , False, Flat
Next oPage
End Sub