Attribute VB_Name = "Module1"
Option Explicit

Global Const RASTER_STR = "LEADRaster.LEADRaster"
Global Const strLic = "LEADTOOLS OCX Copyright (c) 1991-2004 LEAD Technologies, Inc."

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.mnuTwainmnuTwainAcquire.Enabled = bEnableTwain
   frmMain.mnuTwainmnuTwainSelect.Enabled = bEnableTwain
   frmMain.mnuTemplatemnuTemplateLEAD.Enabled = bEnableTwain
   frmMain.mnuTemplatemnuTemplateShowCaps.Enabled = bEnableTwain
   frmMain.mnuTemplatemnuTemplateShowErrors.Enabled = bEnableTwain

   frmMain.mnuFileSave.Enabled = nChildCount > 0
   frmMain.mnuFileClose.Enabled = nChildCount > 0
End Sub

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