Dim b As Button
b.Initialize("menuButton")
b.Text = "Click"
ACToolBarLight1.AddView(b, 60dip, 40dip, Gravity.CENTER)
pp.Initialize("pp", b) 'global ACPopupMenu
pp.AddMenuItem(0, "Item 1", Null)
pp.AddMenuItem(0, "Item 2", Null)
pp.AddMenuItem(0, "Item 3", Null)
End Sub
Sub MenuButton_Click
pp.Show
End Sub