Thema: In einem MultiPage-Steuerelement blättern

ClassModule: frmMultiPageDemo

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

Private Sub cmdContinue_Click()
   Unload Me
End Sub

StandardModule: basMain

Sub CallForm()
   frmMultiPageDemo.Show
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und MultiPage