Dim ctx As ContextMenu
ctx.Initialize("ctx")
Dim m1 As MenuItem
m1.Initialize("Item 1", "ctx")
Dim m2 As MenuItem
m2.Initialize("Item 2", "ctx")
Dim m3 As MenuItem
m3.Initialize("Item 3", "ctx")
ctx.MenuItems.AddAll(Array(m1, m2, m3))
Button1.ContextMenu = ctx