<div>
I'm having a problem with the line<br />
If Err = 0<br />
I get this message<br />
Operator '=' is not defined for types 'Microsoft.VisualBasic.Err<wbr />Object' and 'Integer'. &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</div>


I'm having a problem with the line
If Err = 0
I get this message
Operator '=' is not defined for types 'Microsoft.VisualBasic.ErrObject' and 'Integer'.      

<div>
I found the problem.<br />
I needed to use:<br />
If Err().Number = 0 Then
</div>


I found the problem.
I needed to use:
If Err().Number = 0 Then

<div>
<div class="content wysiwyg-content">
In my program, I want to open a visio file but if it is already open, I want to close it and open a new version of the file. &nbsp;Here's the code that I currently have. &nbsp;I run into problems if the application is already open.<br />
<br />
If IsNothing(VisioApplication<wbr />) Then<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; VisioApplication = CreateObject(&quot;visio.applic<wbr />ation&quot;)<br />
&nbsp; &nbsp; &nbsp; &nbsp; End If<br />
<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; Try<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; VisioApplication.Documents<wbr />.Open(Visi<wbr />oPathName)<wbr /><br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; VisioPages = VisioApplication.ActiveDoc<wbr />ument.Page<wbr />s<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; VisioPage = VisioPages.Item(1)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; VisioShapes = VisioPage.Shapes<br />
<br />
&nbsp; &nbsp; &nbsp; &nbsp; Catch ex As Exception<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(ex.Message)<br />
&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End<br />
&nbsp; &nbsp; &nbsp; &nbsp; End Try
</div>
</div>


In my program, I want to open a visio file but if it is already open, I want to close it and open a new version of the file.  Here's the code that I currently have.  I run into problems if the application is already open.

If IsNothing(VisioApplication) Then
            VisioApplication = CreateObject("visio.application")
        End If


        Try
            VisioApplication.Documents.Open(VisioPathName)
            VisioPages = VisioApplication.ActiveDocument.Pages
            VisioPage = VisioPages.Item(1)
            VisioShapes = VisioPage.Shapes

        Catch ex As Exception
            MsgBox(ex.Message)
            End
        End Try

If application is already open, how do I close it and start a new one????

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.

Visual Basic Classic

Visio is a diagramming and vector graphics application that is part of the Microsoft Office family that allows the user to create diagrams for organizational and planning purposes. The Premium edition has additional templates for more advanced diagrams and layouts, as well as capabilities intended to make it easy for users to connect their diagrams to data sources and to display their data graphically, as well as intelligent rules, validation, subprocess (diagram breakdown). one-step connectivity with Excel data, information rights management (IRM) protection for Visio files, modernized shapes for office layout, detailed shapes for site and floor plans, modern shapes for home plans, and IEEE compliant shapes for electrical diagrams.

Microsoft Visio

Programming includes both the specifics of the language you’re using, like Visual Basic, .NET, Java and others, but also the best practices in user experience and interfaces and the management of projects, version control and development. Other programming topics are related to web and cloud development and system and hardware programming.