Hi Everybody,
I am customizing Desktop using VBA. I have developed menu name " Verification_Drawing" and it has one submenu named "Building_Residential Building". The "Residential Building" have two pop menu, names "Query " and "Report". I want when user clicks on "Query" pop menu, software should show user form (For this I have written show in Code). I have written a code for this.But it is not working.Does any body have idea why it is not working???????
newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
Code is given below--
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)
Dim newMenu As AcadPopupMenu
Set newMenu = currMenuGroup.Menus.Add("Verification_Drawing")
Dim FileSubMenu As AcadPopupMenu
Dim FileSubMenuI As AcadPopupMenu
Set FileSubMenu = newMenu.AddSubMenu("", "Building_Residential Building")
Set FileSubMenuI = FileSubMenu.AddSubMenu("", "Room and Dimensions")
Dim newMenuItemI As AcadPopupMenuItem
openQuery = Chr(3) & Chr(3) & Chr(95) & "k1" & Chr(32)
Set newMenuItemI = FileSubMenuI.AddMenuItem(newMenu.Count + 1, "Query", openQuery)
newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.Count + 1)
'Macro named Query
Sub Query()
'msgbox ("jai hind")
UserForm1.Show
End Sub
Thanks Everybody
