<P>Dim pCom As ICommand</P>
<P>Set pCom = New YourTool   ’YourTool Implements esriSystemUI.ICommand and  esriSystemUI.ITool <BR>pCom.OnCreate (mapCtrl.object)<BR>pCom.OnClick<BR>If TypeOf pCom Is esriSystemUI.ITool Then<BR>    Set mapCtrl.CurrentTool = pCom<BR>End If</P>