Application.ActiveTool

Property ActiveTool As cdrTools

Member of Application

The ActiveTool property returns or sets the active tool in CorelDRAW.

The following code example changes the active tool from the Pick tool to the Eye Dropper tool.

Sub ToolActive() 
 If ActiveTool = cdrToolPick Then 
  ActiveTool = cdrToolEyeDropper 
 End If 
End Sub 

Copyright 2007 Corel Corporation. All rights reserved.