GPPointFileInfo\LicenseManager.vb
Creating a non-trival custom GP tool - inputs, outputs, and responding to environment settings
GPPointFileInfo\LicenseManager.vb
' Copyright 2008 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 use restrictions at <your ArcGIS install location>/developerkit/userestrictions.txt.
' 

Imports Microsoft.VisualBasic
Imports System
Imports ESRI.ArcGIS.esriSystem

Namespace GPPointFileInfo
    Public Class LicenseManager
        Implements ILicenseManager
        Private _licensedProducts As ILicensedProducts

        Public Sub New()
            Dim aoInitialize As IAoInitialize = New AoInitializeClass()

            _licensedProducts = New LicensedProducts(aoInitialize)
        End Sub

        Public Sub Initialize() Implements ILicenseManager.Initialize
            _licensedProducts.Initialize()
        End Sub

        Public ReadOnly Property IsLicensed() As Boolean Implements ILicenseManager.IsLicensed
            Get
                Return (_licensedProducts.IsLicensed)
            End Get
        End Property

        Public Sub Shutdown() Implements ILicenseManager.Shutdown
            _licensedProducts.Shutdown()
        End Sub
    End Class
End Namespace