HOW TO
This article shows how to use IApplication::CurrentTool to make a UIToolControl the active tool in ArcMap.
Note:
Code in ThisDocument module will only run in the current map document. To store the code in all your map documents, open the Normal.mxt ThisDocument code module.
Code:
Sub SetCurrentTool()
Dim pCommandItem As ICommandItem
Dim pApp As IApplication
Set pApp = Application
Set pCommandItem = Project.ThisDocument.CommandBars.Find("Project.UIToolControl1")
Set pApp.CurrentTool = pCommandItem
End Sub
Article ID:000004943
Get help from ArcGIS experts
Download the Esri Support App