Private
Sub Map1_ToolUsed(ByVal
ToolNum As Integer,
ByVal
x1 As Double, ByVal y1
As Double, ByVal x2 As
Double,
ByVal
y2 As Double, ByVal Distance
As Double,
ByVal
Shift As Boolean, ByVal
Ctrl As Boolean, EnableDefault
As Boolean)
'Only do this if we have
the radius select tool
'(This sub gets called
after *any* tool is used)
If ToolNum = myTool Then
Msgbox
¡°You¡¯re circle started
at point ¡± & X1 &
¡°, ¡± & Y1 & _
and is: ¡± & Distance
& ¡° miles in radius.¡±
End If
End Sub |