Adding a page to Multipage with code

Hello guys,

I have the following code where i create a Multipage and add pages to it using VBA. The code works fine till creating multipage. But adding page to it is a problem. I have followed excel help and used it in the following code.

Private Sub UserForm_Initialize()

Dim x As Control
Dim y As Control


Set x = UF2.Frame1.Controls.Add("Forms.Multipage.1", "MP")

Set y = MP.Pages(0).Controls.Add("MSForms" _
& ".TextBox.1", "x", Visible)


End Sub

Please help me with adding the pages.

Thanks in Advance