' 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 ESRI.ArcGIS
Imports System

Partial Friend Class LicenseInitializer

  Public Sub New()

  End Sub

  Private Sub BindingArcGISRuntime(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.ResolveBindingEvent
    '
    ' TODO: Modify ArcGIS runtime binding code as needed; for example, 
    ' the list of products and their binding preference order.
    '
    Dim supportedRuntimes() As ProductCode = New ProductCode() {ProductCode.Engine, ProductCode.Desktop}
    For Each c As ProductCode In supportedRuntimes
      If (RuntimeManager.Bind(c)) Then Return
    Next

    '
    ' TODO: Modify the code below on how to handle bind failure
    '

    ' Failed to bind, announce and force exit
    Console.WriteLine("ArcGIS runtime binding failed. Application will shut down.")
    End
  End Sub

End Class