ButtonMenuTool example for Visual Basic

   ' make the first rubber stamp tool draw a rectangle
   For i = 0 To LEAD1.AnnToolbar.ButtonCount - 1
      ' is this the button with the rubber stamps ?
      If LEAD1.AnnToolbar.ButtonToolCount(i) > 1 Then
         LEAD1.AnnToolbar.ButtonMenuTool(i, 0) = ANNTOOL_RECT
      End If
   Next