Dim i As Byte
Private Sub MultiPage1_Click(ByVal Index As Long)
If MultiPage1.Value = 4 Then
For i = 0 To 10: MultiPage1.Pages(i).Visible = IIf(i < 4, 1, 0): Next i
MultiPage1.Value = 0
End If
End Sub
Private Sub CommandButton2_Click()
For i = 0 To 10: MultiPage1.Pages(i).Visible = IIf(i > 3, 1, 0): Next i
MultiPage1.Value = 5
End Sub