StructureEditor Namespace : Application Object |
Imports System.IO Imports System.Runtime.InteropServices Module Example <STAThread()> _ Sub Main() Dim objApplication As StructureEditor.Application = Nothing Dim objStructureEditor As StructureEditor.SEECStructureEditor = Nothing Try OleMessageFilter.Register() ' Start structure editor application objApplication = Activator.CreateInstance(Type.GetTypeFromProgID("StructureEditor.Application")) objStructureEditor = objApplication.SEECStructureEditor objApplication.Visible = True Catch ex As Exception Console.WriteLine(ex.Message) Finally If Not objApplication Is Nothing Then ' Kill the instance of structure editor created objApplication.Quit() End If OleMessageFilter.Revoke() End Try End Sub End Module