' Copyright 2010 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See the use restrictions.
' 

Imports System
Imports System.Collections.Generic
Imports System.Windows.Forms

Namespace GlobeControlApp
  NotInheritable Class Program
    Private Sub New()
    End Sub
    ''' <summary>
    ''' The main entry point for the application.
    ''' </summary>
    <STAThread()> _
    Private Shared Sub Main()
      Application.EnableVisualStyles()
      Application.SetCompatibleTextRenderingDefault(False)
      Application.Run(New MainForm())

            ' Workaround for crash on exit bug.
            Dim mch As ESRI.ArcGIS.DefenseSolutions.IMoleCoreHelper = New ESRI.ArcGIS.DefenseSolutions.MoleCoreHelperClass()
      mch.ReleaseForceElementRenderer()
      mch.ReleaseTacticalGraphicRenderers()

      ' release any COM objects that are still hanging
      ESRI.ArcGIS.ADF.COMSupport.AOUninitialize.Shutdown()

    End Sub
  End Class
End Namespace