Dim pFrame1OnPage As Long
Private Sub MultiPage1_Change()
Frame1.Visible = (pFrame1OnPage = MultiPage1.Value)
End Sub
Property Get Frame1OnPage() As Long
Frame1OnPage = pFrame1OnPage
End Property
Property Let Frame1OnPage(inVal As Long)
pFrame1OnPage = inVal
Frame1.Visible = (pFrame1OnPage = MultiPage1.Value)
End Property
Private Sub UserForm_Initialize()
Frame1.ZOrder fmZOrderFront
End Sub
Frame1OnPage = 1
Frame1.Top = 10 + Multipage1.Top + (Multipage1.Height - Multipage1.Pages(0).InsideHeight)