Attribute VB_Name = "Module1"
Option Explicit

Global Const RASTER_STR = "LEADRaster.LEADRaster"
Global Const RASTERIO_STR = "LEADRasterIO.LEADRasterIO"
Global Const RASTERTWAIN_STR = "LEADRasterTwain2.LEADRasterTwain2"

Global gszLic As String
Global gNumChildren As Integer

Public nChildCount As Integer
Public bEnableTwain As Boolean
Public nAcquiredPage As Integer
Public Errorlist() As String
Public nErrorlistCount As Integer
Public twXferMech As Integer

Public Sub EnableMenuItem()
   frmMain.mnuTwainAcquire.Enabled = bEnableTwain
   frmMain.mnuTwainSelectSource.Enabled = bEnableTwain
   frmMain.mnuTemplateLEAD.Enabled = bEnableTwain
   frmMain.mnuTemplateShowCaps.Enabled = bEnableTwain
   frmMain.mnuTemplateShowErrors.Enabled = bEnableTwain

   frmMain.mnuFileSave.Enabled = gNumChildren <> 0
   frmMain.mnuWindow.Enabled = gNumChildren <> 0
End Sub

Public Sub AddErrorToErrorsList(strError As String)
   nErrorlistCount = nErrorlistCount + 1
   ReDim Preserve Errorlist(nErrorlistCount)
   Errorlist(nErrorlistCount - 1) = strError
End Sub