Private Sub cmdNext_Click() With MultiPage1 If .Value < .Pages.Count - 1 Then .Value = .Value + 1 Else .Value = 0 End If End With End Sub