Private Sub AddPageDemo()
 Const NEW_PAGE_INDEX = 1
 With Me.MultiPage1.Pages.Add("pgHGJ", "HGJ", NEW_PAGE_INDEX)
    With .Controls.Add("Forms.TextBox.1", "txtHGJ1")
       .Move 20, 20, 100, 20
       .Visible = True
    End With
 End With
 Me.MultiPage1.Value = NEW_PAGE_INDEX
End Sub