Form1 Menus DEMO Form15 ABCEvents Picture1 Label3 /(c) Micrografx Inc., 1995. All Rights Reserved. Label1 pWhen this VB program is running, a new menu is added to ABC. The menu adds object counting functionality to ABC. Label2 Y<---- Double-click on this custom VBX in VB 3.0 edit mode to see the event handling code. ABC1_DoubleClick~ ABC1_ObjectMove9 ABCFlowVBX1 ABCObject Valid Shape FillColor ABCApplication GREENA Object ABCChart ABCObjectsf ItemFromSelection] YELLOW NormalAction Objects Chartf ABCObj BorderWidth FitShapeToText linking behaviorC Override@ Fields Value= CenterX& CenterY XVarb YVarb ABC1_DoubleClickSUBCLASSm ABC1_ObjectMovedNOTIFYx Color BasicColor Count Yelow ABC1_ChartOpenNOTIFYs Form_Load ABCApp Visible ACB12 SelectedShapeCount ABC1_FieldValueChangedNOTIFY FieldValue Namea ABC1_ChartNewNOTIFY( NewField Format Hidden Form_ClickO FieldValues FieldTemplates ABC1_NewShapeNOTIFY RegisterEvent Form1 Caption Number AddMenu AppendItem ABC1_AppMenuSUBCLASS SHAPECOUNT\ LINECOUNT ABC1_AppMenuPopupSUBCLASS CountShapes ChountTypek Shapes ActiveChart ItemFromAll Message MsgBox CountType MenuItem CountLines Lines WindowState HourGlass ABC1_AppQuitSUBCLASS ABC1_AppQuitNOTIFY Label2_Click WindowsStateX Shape Count... Line Count... ABC1_AppMenuSUBCLASS ABC1_AppQuitNOTIFY CountLines There are no lines in this chart. There is one line in this chart. There are lines in this chart. CountShapes There are no shapes in this chart. There is one shape in this chart. There are shapes in this chart. Form_Load ABCFlow.application Get the ABC Quit event so the Menu sample can unload when ABC Quits AppQuitNOTIFY Stats Minimize Menu Sample Form