[/
Sub ImageView2_Click
'Setting Out
Dim PopupMenu As RSPopupMenu
PopupMenu.Initialize("PopupMenu1", ImageView2)
PopupMenu.AddMenuItem2(0,0, 0, "Bulk")
'The following menus must be Submenus under "Bulk"
PopupMenu.AddSubMenuItem2(0,0, 0, "B\Boards")
PopupMenu.AddsubMenuItem2(0,1, 1, "Plot")
PopupMenu.AddsubMenuItem2(0,2, 2, "Float")
PopupMenu.AddsubMenuItem2(0,3, 3, "E\Checks")
PopupMenu.AddMenuItem2(1,0, 0, "Surface")
'The following menus must be Submenus under "Surface"
PopupMenu.AddSubMenuItem2(1,0, 0, "Surface")
PopupMenu.AddsubMenuItem2(1,1, 1, "CrossFalls")
PopupMenu.AddsubMenuItem2(1,2, 2, "Widths")
PopupMenu.AddsubMenuItem2(1,3, 3, "Edge Shifts")
PopupMenu.AddsubMenuItem2(1,4, 4, "Shoulders")
PopupMenu.Show
End Sub
]
This is the what I am getting:
[ATTACH type="full"]130047[/ATTACH]