Multipage Control

No, but you can adapt the multipage's size based on it's value, e.g.

Sub Private Multipage1_Change()
   multipage1.width=100 + multipage1.value*10
End Sub

A little more on snb's contribution. If you want different widths for each tab something like this

Option Explicit

Private Sub MultiPage1_Change()
With Me
'multipage pages start at zero
Select Case .MultiPage1.Value
Case 0: .MultiPage1.Width = .Width * 0.85
Case 1: .MultiPage1.Width = .Width * 0.5
End Select
End With
End Sub