' zoom to selected Dim mxApp As ESRI.ArcGIS.Framework.IApplication Dim numUID As UID = New ESRI.ArcGIS.esriSystem.UID numUID.Value = "{AB073B49-DE5E-11D1-AA80-00C04FA37860}" Dim commandBars As ICommandBars = mxApp.Document.CommandBars '>>> error here!!!!!!!! Dim cmdItem As ICommandItem = CommandBars.Find(numUID, False, False) If Not (cmdItem Is Nothing) Then cmdItem.Execute() End If
Solved! Go to Solution.
Dim mxDocument As ESRI.ArcGIS.ArcMapUI.IMxDocument = My.ArcMap.Application.Document