A better way? Getting Menu Item Collection Into ContextMenu?

Ok the following works... but is ugly and static, need the same idea
but dynamic, so as the 'theOwner' form main menu is defined,
NotifyIcon.ContextMenu can be updated.

Dim the0 As MenuItem = theOwner.Menu.MenuItems(0)
Dim the1 As MenuItem = theOwner.Menu.MenuItems(1)

Dim theItems As MenuItem()

ReDim theItems(1)
theItems(0) = the0
theItems(1) = the1

NotiyIcon.ContextMenu = New ContextMenu(theItems)

I can get the Menu Items Collection, but can not seem to get the
collection converted to a MenuItem() array? That ContextMenu wants.
Thx in advanced.