Can't use transparent command from menu or toolbars while getting input

XDSoft

问题：

I use the following macro to prompt for user input:
Sub test()
ThisDrawing.Utility.GetPoint , "Specify a point or use a transparent command:"
End Sub
Why does the prompt abort after a user selects the Zoom command from the
toolbar?

解答：

This is a known problem for which the workaround is to have the user type the
transparent command instead of selecting it from the toolbar or menu is as
follows:
Sub test()

Dim pt As Variant
On Error GoTo herr

pt=ThisDrawing.Utility.GetPoint( , "Specify a point or use a transparent
command: ")
Exit Sub

herr:
     Resume
End Sub