Attribute VB_Name = "Module" Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Const SW_SHOW = 5 Public Const SW_HIDE = 0 Global Const RASTER_STR = "LEADRaster.LEADRaster" Global Const RASTERIO_STR = "LEADRasterIO.LEADRasterIO" Global Const RASTERPROC_STR = "LEADRasterProcess.LEADRasterProcess" Global Const RASTERANN_STR = "LEADRasterAnnotation.LEADRasterAnnotation" Global Const RASTERANNTB_STR = "AnnToolBar.AnnToolBar" Global gszLic As String