How do I add dynamically menu items on my form

Have a menu item with Index of 0 then Load new instances

Private Sub Command1_Click()
Dim i As Integer

    i = mnuMenuItem.Count
    Load mnuMenuItem(i)
End Sub