Hallo,
I have with VBA in autocad 2004 write a modul. With the modul I create a
PopupMenu.
Sub StartPopupMenu ()
Dim AcGroup As AcadMenuGroup
Dim MMenu As AcadPopupMenu
Dim MItem As AcadPopupMenuItem
Set AcGroup = Application.MenuGroups ("acad")
Set MMenu = AcGroup.Menus.Add ("TestMenu")
Set MItem = MMenu.AddMenuItem (0, "Test", ???????????)
End Sub
Sub Test1 ()
MsgBox "hallo"
End Sub
How can I start the procedure Test1 with the command: Set MItem =
MMenu.AddMenuItem (0, "Test", ???????????) ?
The procedure StartPopupMenu and Test1 are in the same modul.
Thanks.
Hartmut Callies
