ActiveWindow.DeselectAll problem

A

Al Edlund

I'd stongly suggest that you start by wrapping your code in a a try...catch
block to see if there is an error.

try
Dim document As Visio.Document = DrawingControl.Document
Dim application As Visio.Application = document.Application
application.ActiveWindow.DeselectAll()
catch com as comexception
msgbox com.message
end try

al
 
Top