Attribute VB_Name = "Decl" Global Const HOURGLASS = 11 Global Const DEFAULT = 0 Global Const NOERROR = 0 Global Const OCXERROR = 1 Global Const VBXERROR = 2 Global Const SO_LEAD = 0 Global Const SO_JFIF = 1 Global Const SO_JTIF = 2 Global Const SO_AWD = 3 Global Const SO_CALS = 4 Global Const SO_CUR = 5 Global Const SO_CCITT = 6 Global Const SO_DIC_GRAY = 7 Global Const SO_DIC_COLOR = 8 Global Const SO_EXIF = 9 Global Const SO_FAX = 10 Global Const SO_EPS = 11 Global Const SO_FPX = 12 Global Const SO_GEM = 13 Global Const SO_GIF = 14 Global Const SO_ICO = 15 Global Const SO_IOCA = 16 Global Const SO_PCT = 17 Global Const SO_MAC = 18 Global Const SO_MSP = 19 Global Const SO_OS2 = 20 Global Const SO_PCX = 21 Global Const SO_PNG = 22 Global Const SO_PSD = 23 Global Const SO_RAS = 24 Global Const SO_TGA = 25 Global Const SO_TIF = 26 Global Const SO_WBMP = 27 Global Const SO_WBMP_RLE = 28 Global Const SO_WFX = 29 Global Const SO_WMF = 30 Global Const SO_WPG = 31 Global Const NUM_SAVE_TYPES = 32 Global Const NUM_OPEN_TYPES = 23 Global Const QF_CUSTOM = 9 Global Const QFACTOR_PQ1 = 0 Global Const QFACTOR_PQ2 = 1 Global Const QFACTOR_QFS = 2 Global Const QFACTOR_QMS = 3 Global Const QFACTOR_QS = 4 Global Const QFACTOR_SQS = 5 Global Const QFACTOR_SQT = 6 Global Const QFACTOR_MCQ = 7 Global Const QFACTOR_MC = 8 Global Const QFACTOR_CUSTOM = 9 Global Const RESIZE_TYPE = 0 Global Const DETECT_TYPE = 1 Global Const STAMP_TYPE = 2 Global Const COLOR_BLACK = 0 Global Const COLOR_BLUE = 1 Global Const COLOR_GREEN = 2 Global Const COLOR_RED = 3 Global Const COLOR_WHITE = 4 Global GlobalObject As Integer Global Const OBJECT_ELLIPSE = 0 Global Const OBJECT_LINE = 1 Global Const OBJECT_RECTANGLE = 2 Global gNumChildren As Integer Global gBitonalType As Integer Global gDitheringType As Integer Global gPaintWhileLoad As Integer Global gShowOpenOpts As Integer Global gShowProgress As Integer Global gInProgress As Integer Global gPaintFixed As Integer Global gTwainID As Integer Type RECT left As Integer top As Integer right As Integer bottom As Integer End Type Global DiffWidth As Integer Global DiffHeight As Integer Global DrawMenu As String Global SaveMulti As String Global aChildWindows() As ViewFrm Global ErrorMessage As Integer