AnnToolChecked example for Visual Basic

Note: This topic is for Document/Medical only.

Private Sub LEAD1_AnnToolChecked(ByVal iTool As Integer)
Dim TestString As String

Select Case iTool
Case ANNTOOL_SELECT
  TestString = "Selection pointer tool"
Case ANNTOOL_LINE
  TestString = "Line tool"
Case ANNTOOL_RECT
  TestString = "Rectangle tool"
Case ANNTOOL_ELLIPSE
  TestString = "Ellipse tool"
.

.

.
Case Else
  TestString = "User defined tool"
End Select
MsgBox TestString, 0, "Notice"

End Sub