' 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 IfSolved! Go to Solution.
Dim mxDocument As ESRI.ArcGIS.ArcMapUI.IMxDocument = My.ArcMap.Application.Document
