Private Sub m_UserInputEvents_OnActivateCommand(ByVal CommandName As String, ByVal Context As Inventor.NameValueMap) Handles m_UserInputEvents.OnActivateCommand
If CommandName = "SheetMetalPunchToolCmd" Then
Debug.
Print(m_inventorApplication.
CommandManager.
ActiveCommand) m_inventorApplication.CommandManager.StopActiveCommand()
End If
End Sub