Attribute VB_Name = "Module1"
Option Explicit

Public fMainForm As frmMain
Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Public Const HORZSIZE = 4           '  Horizontal size in millimeters
             
Public Const VERTSIZE = 6           '  Vertical size in millimeters
Public Const HORZRES = 8            '  Horizontal width in pixels
Public Const BITSPIXEL = 12         '  Number of bits per pixel
Public Const VERTRES = 10           '  Vertical width in pixels
Public Const LOGPIXELSX = 88        '  Logical pixels/inch in X
Public Const LOGPIXELSY = 90        '  Logical pixels/inch in Y
Public Const PHYSICALWIDTH = 110 '  Physical Width in device units
Public Const PHYSICALHEIGHT = 111 '  Physical Height in device units
Public Const SCALINGFACTORX = 114 '  Scaling factor x
Global Const HOURGLASS = 11
Public m_ImageWidth As Double
Public m_ImageHeight As Double
Public g_nDocumentCount As Integer
Public lDocumentCount As Long
Public nPrintWidth As Long
Public nPrintHeight As Long


       

Public nXImgRes As Long
Public nYImgRes As Long
Public nQuality As Long
Public nResolution As Long
Public nMaxWidth As Long
Public nMaxHeight As Long
Public bFlag As Boolean
Public bSupport As Boolean

Public Const ZOOM_FACTOR = 50
Public ZoomWidthFactor As Long
Public ZoomHeighFactor As Long
Public ZoomingFactor As Long
Public DstWidth As Long
Public DstHeight As Long
Public g_GetValueBox As Long
Public bLoad As Boolean
Public PageNo As Integer
Public NoOfPages As Integer
Public bIsMulti As Boolean
Public pageno1 As Integer

'''
Public m_nImgWidth As Long
Public m_nImgHeight As Long
Public m_nPrintWidth As Double
Public m_nPrintHeight As Double

Public m_nAspectWidth As Long
Public m_nAspectHeight As Long
Public pZoomFact As Double
Public NoOfPagesActive As Integer
Public PrintintgWidth As Integer
Public PrintingHeight As Integer
Public IFPrinterFound As Boolean

'''
Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Declare Function RedrawWindow Lib "user32" (ByVal hwnd As Long, lprcUpdate As RECT, ByVal hrgnUpdate As Long, ByVal fuRedraw As Long) As Long
Declare Function InvalidateRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT, ByVal bErase As Long) As Long

Sub Main()
    Set fMainForm = New frmMain
    
    fMainForm.Show
    PageNo = 0
    
    
End Sub