ActiveTool problem

I wanted to use the next code to activate FreeHandTool but it doesn't work.

Sub ToolActive()

 If ActiveTool = cdrToolPick Then

  ActiveTool = cdrToolDrawFreehand

 End If

End Sub

Thanks for helping me.