Planet Source Code Jumbo …e CD Visual Basic 1 to 7/1_2002.ISO/Data/Zips/CODE_UPLOAD59525202000.psc/AnimatedGifCtl.ctl

Visual Basic Form | 2000-05-21 | 81.8 KB | 2,284 lines

VERSION 5.00
Begin VB.UserControl AnimatedGifCtl
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   2880
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3840
   PaletteMode     =   1  'UseZOrder
   PropertyPages   =   "AnimatedGifCtl.ctx":0000
   ScaleHeight     =   240
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   320
   Begin VB.Timer Timer1
      Left            =   1680
      Top             =   1080
   End
Attribute VB_Name = "AnimatedGifCtl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Description = "Animated Gif Ctl Ver 2.0"
Attribute VB_Ext_KEY = "PropPageWizardRun" ,"Yes"
 Option Explicit
 'Note:
 'The Unisys Corporation has a patent that it alleges
 'covers certain aspects of GIF-LZW compression technology,
 'which the PictureBox and Image controls use.
 'Microsoft Corporation obtained a license
 'to the Unisys LZW patents in September, 1996.
 'Microsoft's license does not, however,
 'extend to software developers or third parties
 'who use any Microsoft toolkit, language development,
 'or operating system products to provide
 'GIF read/write and/or any other LZW capabilities
 'in their own products (for example, by way of DLLs and APIs).
 'If your commercial application uses either of these controls
 '(and thus, the LZW technology), you may wish to '
 'obtain an independent legal opinion on the effect
 'of the patent, or contact
 'Unisys USA at http://www.unisys.com/ for more information.
 ' Please make sure you understand the implications of the
 ' above notes if you release a Commercial product
 ' using these Gif functions.
 ' I am NOT responsible for the use of this software.
 ' Stephen Lebans
 ' May 20, 2000
 ' ************************************************
 ' Sorry, there are several declaration and portions of code
 ' that are not used in this version. They are used in
 ' a version of the code for VBA in Microsoft Access.
 ' I'm wasting too much time trying to support 2 versions
 ' specific for each environment. So if you like, help
 ' yourself and commment out the unused stuff.

 ' Animated Gif Class Module
 'Copyright Lebans Holdings 1999 Ltd.
 'You may freely use and redistribute this code providing
 'the one line copyright notice is left intact.
 'You may not resell this code as part of a collection or by itself.
 'Please feel free to use this code within your own applications,
 'whether private or commercial, without cost.
 'Contact   [e-mail]    or visit    www.lebans.com"
 ' Declare our structures for this module
 Private Type RECTL
     Left As Long
     Top As Long
     Right As Long
     Bottom As Long
 End Type
 Private Type SIZEL
     cx As Long
     cy As Long
 End Type
 Private Type POINTAPI
     x As Long
     y As Long
 End Type
 Private Type PALETTEENTRY
     peRed As Byte
     peGreen As Byte
     peBlue As Byte
     peFlags As Byte
 End Type
 Private Type LOGPALETTE
     palVersion As Integer
     palNumEntries As Integer
     palPalEntry(1) As PALETTEENTRY
 End Type
 Private Type RGBQUAD
     RGBBlue As Byte
     RGBGreen As Byte
     RGBRed As Byte
     rgbReserved As Byte
 End Type
 Private Type BITMAP
     bmType As Long
     bmWidth As Long
     bmHeight As Long
     bmWidthBytes As Long
     bmPlanes As Integer
     bmBitsPixel As Integer
     bmBits As Long
 End Type
 Private Type BITMAPINFOHEADER '40 bytes
     biSize As Long
     biWidth As Long
     biHeight As Long
     biPlanes As Integer
     biBitCount As Integer
     biCompression As Long
     biSizeImage As Long
     biXPelsPerMeter As Long
     biYPelsPerMeter As Long
     biClrUsed As Long
     biClrImportant As Long
 End Type
 Private Const NUMPICCOLORS = 255
 Private Type BITMAPINFO256
     bmiHeader As BITMAPINFOHEADER
     bmiColors(255) As RGBQUAD ' 8 bit RGB
 End Type
 Private Type BITMAPINFO2
     bmiHeader As BITMAPINFOHEADER
     bmiColors(0 To 1) As RGBQUAD ' 2 Color RGB
 End Type
 Private Type BITMAPINFO
     bmiHeader As BITMAPINFOHEADER
     ' No Colors 24 bit RGB
 End Type
 ' Below reTyped - easier to write
 Private Type BITMAPFILEHEADER    '14 bytes
     bfType As Integer
     bfSize(3) As Byte 'Long
     'bfSize As Long
     bfReserved1 As Integer
     bfReserved2 As Integer
     'bfOffBits As Long
     bfOffBits(3) As Byte
 End Type
 Private Type DIBSECTION
     dsBm As BITMAP
     dsBmih As BITMAPINFOHEADER
     dsBitfields(2) As Long
     dshSection As Long
     dsOffset As Long
 End Type
 Private Const OFS_MAXPATHNAME = 128
 ' OpenFile() Structure
 Private Type OFSTRUCT
     cBytes As Byte
     fFixedDisk As Byte
     nErrCode As Integer
     Reserved1 As Integer
     Reserved2 As Integer
     szPathName(OFS_MAXPATHNAME) As Byte
 End Type
 Private Type SECURITY_ATTRIBUTES
 nLength As Long
 lpSecurityDescriptor As Long
 bInheritHandle As Long
 End Type
 Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
 Private Declare Function SetCapture Lib "user32" (ByVal hwnd As Long) As Long
 Private Declare Function ReleaseCapture Lib "user32" () As Long
 Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
 Private Declare Function CreateBitmapIndirect Lib "gdi32" (lpBitmap As BITMAP) As Long
 Private Declare Function CreateCompatibleBitmap Lib "gdi32" (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
 Private Declare Function CreateBitmap Lib "gdi32" _
   (ByVal nWidth As Long, _
    ByVal nHeight As Long, _
    ByVal nPlanes As Long, _
    ByVal nBitCount As Long, _
    lpBits As Any) As Long
 Private Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As Long) As Long
 'Private Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal x As Long, ByVal y As Long) As Long
 Private Declare Function GetPaletteEntries Lib "gdi32" (ByVal hPalette As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As Long
 Private Declare Function RealizePalette Lib "gdi32" (ByVal hdc As Long) As Long
 Private Declare Function GetDIBColorTable Lib "gdi32" _
 (ByVal hdc As Long, ByVal un1 As Long, ByVal un2 As Long, pRGBQuad As RGBQUAD) As Long
 Private Declare Function GetCurrentObject Lib "gdi32" _
 (ByVal hdc As Long, ByVal uObjectType As Long) As Long
 Private Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long
 Private Declare Function SetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal crColor As Long) As Long
 Private Declare Function GetNearestColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
 Private Declare Function GetNearestPaletteIndex Lib "gdi32" (ByVal hPalette As Long, ByVal crColor As Long) As Long
 Private Declare Function CreateHalftonePalette Lib "gdi32" (ByVal hdc As Long) As Long
 Private Declare Function SelectPalette Lib "gdi32" (ByVal hdc As Long, ByVal hPalette As Long, ByVal bForceBackground As Long) As Long
 Private Declare Function SetBitmapBits Lib "gdi32" ()
 Private Declare Function FillRect Lib "user32" _
 (ByVal hdc As Long, lpRect As RECTL, ByVal hBrush As Long) As Long
 Private Declare Function GetTempPath Lib "KERNEL32" _
 Alias "GetTempPathA" (ByVal nBufferLength As Long, _
 ByVal lpBuffer As String) As Long
 Private Declare Function GetTempFileName _
   Lib "KERNEL32" Alias "GetTempFileNameA" _
   (ByVal lpszPath As String, _
   ByVal lpPrefixString As String, _
   ByVal wUnique As Long, _
   ByVal lpTempFileName As String) As Long
 Private Declare Function GetMapMode Lib "gdi32" (ByVal hdc As Long) As Long
 ' CHange to allow NULL for PaletteEntry struct.
 ' Function will Return total number of palette entries
 Private Declare Function GetNumSystemPaletteEntries Lib "gdi32" _
 Alias "GetSystemPaletteEntries" _
 (ByVal hdc As Long, ByVal wStartIndex As Long, _
 ByVal wNumEntries As Long, lpPaletteEntries As Long) As Long
 Private Declare Function GetSystemPaletteEntries Lib "gdi32" (ByVal hdc As Long, ByVal wStartIndex As Long, ByVal wNumEntries As Long, lpPaletteEntries As PALETTEENTRY) As Long
 Private Declare Function CreatePalette Lib "gdi32" (lpLogPalette As LOGPALETTE) As Long
 Private Declare Function SetDIBColorTable Lib "gdi32" (ByVal hdc As Long, ByVal un1 As Long, ByVal un2 As Long, pcRGBQuad As RGBQUAD) As Long
 Private Declare Function StretchBlt Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, ByVal dwRop As Long) As Long
 'changed lpbits from ByRef as Any
 Private Declare Function StretchDIBits Lib "gdi32" _
 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _
 ByVal dx As Long, ByVal dy As Long, ByVal SrcX As Long, _
 ByVal SrcY As Long, ByVal wSrcWidth As Long, _
 ByVal wSrcHeight As Long, ByVal lpBits As Long, _
 lpBitsInfo As BITMAPINFO, ByVal wUsage As Long, _
 ByVal dwRop As Long) As Long
 Private Declare Function WindowFromDC Lib "user32" (ByVal hdc As Long) As Long
 Private Declare Function SetMapMode Lib "gdi32" _
 (ByVal hdc As Long, ByVal nMapMode As Long) As Long
 'Private Declare Function GetStockObject Lib "gdi32" (ByVal nIndex As Long) As Long
 Private Declare Function GetStretchBltMode Lib "gdi32" ()
 Private Declare Function GetBoundsRect Lib "gdi32" _
 (ByVal hdc As Long, lprcBounds As RECTL, ByVal flags As Long) As Long
 Private Declare Function RestoreDC Lib "gdi32" (ByVal hdc As Long, ByVal nSavedDC As Long) As Long
 Private Declare Function SaveDC Lib "gdi32" _
 (ByVal hdc As Long) As Long
 Private Declare Function GdiFlush Lib "gdi32" () As Long
 Private Declare Function GetDeviceCaps Lib "gdi32" _
 (ByVal hdc As Long, ByVal nIndex As Long) As Long
 Private Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long
 Private Declare Function GetClientRect Lib "user32" _
 (ByVal hwnd As Long, lpRect As RECTL) As Long
 Private Declare Function GetWindowRect Lib "user32" _
 (ByVal hwnd As Long, lpRect As RECTL) As Long
 Private Declare Sub Sleep Lib "KERNEL32" (ByVal dwMilliseconds As Long)
 ' Create an Information Context
  Private Declare Function apiCreateIC Lib "gdi32" Alias "CreateICA" _
   (ByVal lpDriverName As String, ByVal lpDeviceName As String, _
   ByVal lpOutput As String, lpInitData As Any) As Long
  ' Close an existing Device Context (or information context)
  Private Declare Function apiDeleteDC Lib "gdi32" Alias "DeleteDC" _
   (ByVal hdc As Long) As Long
  Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
 Private Declare Function SetBkMode Lib "gdi32" _
 (ByVal hdc As Long, ByVal nBkMode As Long) As Long
 Private Declare Function apiCreateCompatibleBitmap Lib "gdi32" _
  Alias "CreateCompatibleBitmap" _
  (ByVal hdc As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
  Private Declare Sub apiCopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" _
      (Destination As Any, Source As Any, ByVal Length As Long)
  Private Declare Function apiGetStockObject Lib "gdi32" Alias "GetStockObject" _
  (ByVal nIndex As Long) As Long

  Private Declare Function apiSelectObject Lib "gdi32" _
   Alias "SelectObject" (ByVal hdc As Long, ByVal hObject As Long) As Long
  Private Declare Function apiSetTextAlign Lib "gdi32" Alias "SetTextAlign" _
  (ByVal hdc As Long, ByVal wFlags As Long) As Long
  Private Declare Function apiSetTextColor Lib "gdi32" Alias "SetTextColor" _
  (ByVal hdc As Long, ByVal crColor As Long) As Long
  Private Declare Function apiSetBkColor Lib "gdi32" Alias "SetBkColor" _
  (ByVal hdc As Long, ByVal crColor As Long) As Long
  Private Declare Function apiGetDC Lib "user32" _
    Alias "GetDC" (ByVal hwnd As Long) As Long
  Private Declare Function apiReleaseDC Lib "user32" _
    Alias "ReleaseDC" (ByVal hwnd As Long, _
    ByVal hdc As Long) As Long
  Private Declare Function apiCreateCompatibleDC Lib "gdi32" _
    Alias "CreateCompatibleDC" (ByVal hdc As Long) As Long
   Private Declare Function apiBitBlt Lib "gdi32" _
    Alias "BitBlt" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, _
    ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, _
    ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
  Private Declare Function apiDeleteObject Lib "gdi32" _
    Alias "DeleteObject" (ByVal hObject As Long) As Long
  Private Declare Function apiGetObject Lib "gdi32" Alias "GetObjectA" _
  (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
  Private Declare Function apiGetDeviceCaps Lib "gdi32" _
    Alias "GetDeviceCaps" (ByVal hdc As Long, ByVal nIndex As Long) As Long
 Private Declare Function ExtFloodFill Lib "gdi32" _
 (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, _
 ByVal crColor As Long, ftype As Long) As Long
  Private Declare Function apiMoveToEx Lib "gdi32" Alias "MoveToEx" _
  (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, lpPoint As Any) As Long
  'above was lpPoint as POINTAPI, changed to Any to allow NULL
  Private Declare Function apiCreateDIBSection Lib "gdi32" Alias _
  "CreateDIBSection" (ByVal hdc As Long, pBitmapInfo As BITMAPINFO, _
  ByVal un As Long, lplpVoid As Long, ByVal handle As Long, _
  ByVal dw As Long) As Long
   Private Declare Function apiCreateDIBSection2 Lib "gdi32" Alias _
  "CreateDIBSection" (ByVal hdc As Long, pBitmapInfo As BITMAPINFO2, _
  ByVal un As Long, lplpVoid As Long, ByVal handle As Long, _
  ByVal dw As Long) As Long
   Private Declare Function apiCreateDIBSection255 Lib "gdi32" Alias _
  "CreateDIBSection" (ByVal hdc As Long, pBitmapInfo As BITMAPINFO256, _
  ByVal un As Long, lplpVoid As Long, ByVal handle As Long, _
  ByVal dw As Long) As Long
  Private Declare Function apiFillRect Lib "user32" Alias "FillRect" _
  (ByVal hdc As Long, lpRect As RECTL, ByVal hBrush As Long) As Long

  Private Declare Function apiCreateSolidBrush Lib "gdi32" Alias "CreateSolidBrush" _
  (ByVal crColor As Long) As Long
  Private Declare Function GlobalLock Lib "KERNEL32" (ByVal hMem As Long) As Long
  Private Declare Function GlobalAlloc Lib "KERNEL32" _
    (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
  Private Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" _
  (hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long)
 Private Declare Function CreateFile Lib "KERNEL32" _
 Alias "CreateFileA" _
 (ByVal lpFileName As String, _
 ByVal dwDesiredAccess As Long, _
 ByVal dwShareMode As Long, _
 lpSecurityAttributes As SECURITY_ATTRIBUTES, _
 ByVal dwCreationDisposition As Long, _
 ByVal dwFlagsAndAttributes As Long, _
 ByVal hTemplateFile As Long) As Long
 Private Declare Function CloseHandle Lib "KERNEL32" _
 (ByVal hObject As Long) As Long
 Private Declare Function WriteFile Lib "KERNEL32" _
 (ByVal hFile As Long, _
 lpBuffer As Any, _
 ByVal nNumberOfBytesToWrite As Long, _
 lpNumberOfBytesWritten As Long, _
 ByVal lpOverlapped As Long) As Long
 ' For asynchronous operation, change to
 ' lpOverlapped as OVERLAPPED.
 Private Declare Function GetDiskFreeSpace Lib "KERNEL32" _
 Alias "GetDiskFreeSpaceA" _
 (ByVal lpRootPathName As String, _
 lpSectorsPerCluster As Long, lpBytesPerSector As Long, _
 lpNumberOfFreeClusters As Long, lpTotalNumberOfClusters As Long) As Long
 Private Declare Function ReadFile Lib "KERNEL32" _
 (ByVal hFile As Long, _
 lpBuffer As Any, _
 ByVal nNumberOfBytesToRead As Long, _
 lpNumberOfBytesRead As Long, _
 ByVal lpOverlapped As Long) As Long
 ' For asynchronous operation, change to
 ' lpOverlapped as OVERLAPPED.
 Private Declare Function SetFilePointer Lib "KERNEL32" _
 (ByVal hFile As Long, _
 ByVal lDistanceToMove As Long, _
 lpDistanceToMoveHigh As Long, _
 ByVal dwMoveMethod As Long) As Long

  ' Constants GDI
  Private Const SM_CXVSCROLL = 2
 ' File Constants
 Private Const MAX_PATH = 260
 'Private Const OF_PROMPT = &H2000
 'Private Const OF_READ = &H0
 'Private Const OF_READWRITE = &H2
 'Private Const OF_CREATE = &H1000
 Private Const FILE_SHARE_READ = &H1
 Private Const FILE_SHARE_WRITE = &H2
 Private Const GENERIC_READ = &H80000000
 Private Const GENERIC_WRITE = &H40000000
 Private Const FILE_FLAG_RANDOM_ACCESS = &H10000000
 Private Const FILE_ATTRIBUTE_NORMAL = &H80
 Private Const INVALID_HANDLE_VALUE = -1
 Private Const CREATE_NEW = 1
 Private Const CREATE_ALWAYS = 2
 Private Const OPEN_EXISTING = 3
 Private Const OPEN_ALWAYS = 4
 Private Const TRUNCATE_EXISTING = 5
 Private Const FILE_BEGIN = 0
 Private Const FILE_CURRENT = 1
 Private Const FILE_END = 2
 ' GetObject constants
 Private Const OBJ_DC = 3
 Private Const OBJ_METADC = 4
 Private Const OBJ_PAL = 5
 Private Const OBJ_FONT = 6
 Private Const OBJ_BITMAP = 7
 Private Const OBJ_REGION = 8
 Private Const OBJ_METAFILE = 9
 Private Const OBJ_MEMDC = 10
 Private Const OBJ_EXTPEN = 11
 Private Const OBJ_ENHMETADC = 12
 Private Const OBJ_ENHMETAFILE = 13
 ' constants for the biCompression field
 Private Const BI_RGB = 0&
 Private Const BI_RLE8 = 1&
 Private Const BI_RLE4 = 2&
 Private Const BI_bitfields = 3&
 ' Stock Logical Objects
 Private Const WHITE_BRUSH = 0
 Private Const LTGRAY_BRUSH = 1
 Private Const GRAY_BRUSH = 2
 Private Const DKGRAY_BRUSH = 3
 Private Const BLACK_BRUSH = 4
 Private Const NULL_BRUSH = 5
 Private Const HOLLOW_BRUSH = NULL_BRUSH
 Private Const WHITE_PEN = 6
 Private Const BLACK_PEN = 7
 Private Const NULL_PEN = 8
 Private Const OEM_FIXED_FONT = 10
 Private Const ANSI_FIXED_FONT = 11
 Private Const ANSI_VAR_FONT = 12
 Private Const SYSTEM_FONT = 13
 Private Const DEVICE_DEFAULT_FONT = 14
 Private Const DEFAULT_PALETTE = 15
 Private Const SYSTEM_FIXED_FONT = 16
 Private Const STOCK_LAST = 16
 Private Const CLR_INVALID = &HFFFF
 ' OpenFile() Flags
 Private Const OF_READ = &H0
 Private Const OF_WRITE = &H1
 Private Const OF_READWRITE = &H2
 Private Const OF_SHARE_COMPAT = &H0
 Private Const OF_SHARE_EXCLUSIVE = &H10
 Private Const OF_SHARE_DENY_WRITE = &H20
 Private Const OF_SHARE_DENY_READ = &H30
 Private Const OF_SHARE_DENY_NONE = &H40
 Private Const OF_PARSE = &H100
 Private Const OF_DELETE = &H200
 Private Const OF_VERIFY = &H400
 Private Const OF_CANCEL = &H800
 Private Const OF_CREATE = &H1000
 Private Const OF_PROMPT = &H2000
 Private Const OF_EXIST = &H4000
 Private Const OF_REOPEN = &H8000
 '  Ternary raster operations
 Private Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
 Private Const SRCPAINT = &HEE0086        ' (DWORD) dest = source OR dest
 Private Const SRCAND = &H8800C6  ' (DWORD) dest = source AND dest
 Private Const SRCINVERT = &H660046       ' (DWORD) dest = source XOR dest
 Private Const SRCERASE = &H440328        ' (DWORD) dest = source AND (NOT dest )
 Private Const NOTSRCCOPY = &H330008      ' (DWORD) dest = (NOT source)
 Private Const NOTSRCERASE = &H1100A6     ' (DWORD) dest = (NOT src) AND (NOT dest)
 Private Const MERGECOPY = &HC000CA       ' (DWORD) dest = (source AND pattern)
 Private Const MERGEPAINT = &HBB0226      ' (DWORD) dest = (NOT source) OR dest
 Private Const PATCOPY = &HF00021 ' (DWORD) dest = pattern
 Private Const PATPAINT = &HFB0A09        ' (DWORD) dest = DPSnoo
 Private Const PATINVERT = &H5A0049       ' (DWORD) dest = pattern XOR dest
 Private Const DSTINVERT = &H550009       ' (DWORD) dest = (NOT dest)
 Private Const BLACKNESS = &H42 ' (DWORD) dest = BLACK
 Private Const WHITENESS = &HFF0062       ' (DWORD) dest = WHITE
 Private Const DIB_RGB_COLORS = 0 '  color table in RGBs
   ' Background Modes
 Private Const TRANSPARENT = 1
 Private Const OPAQUE = 2
 Private Const BKMODE_LAST = 2
 '  Mapping Modes
 Private Const MM_TEXT = 1
 Private Const MM_LOMETRIC = 2
 Private Const MM_HIMETRIC = 3
 Private Const MM_LOENGLISH = 4
 Private Const MM_HIENGLISH = 5
 Private Const MM_TWIPS = 6
 Private Const MM_ISOTROPIC = 7
 Private Const MM_ANISOTROPIC = 8
 ' Brush Styles
 Private Const BS_SOLID = 0
 Private Const BS_NULL = 1
 Private Const BS_HOLLOW = BS_NULL
 Private Const BS_HATCHED = 2
 Private Const BS_PATTERN = 3
 Private Const BS_INDEXED = 4
 Private Const BS_DIBPATTERN = 5
 Private Const BS_DIBPATTERNPT = 6
 Private Const BS_PATTERN8X8 = 7
 Private Const BS_DIBPATTERN8X8 = 8
 '  Device Parameters for GetDeviceCaps()
 Private Const DRIVERVERSION = 0      '  Device driver version
 Private Const TECHNOLOGY = 2         '  Device classification
 Private Const HORZSIZE = 4           '  Horizontal size in millimeters
 Private Const VERTSIZE = 6           '  Vertical size in millimeters
 Private Const HORZRES = 8            '  Horizontal width in pixels
 Private Const VERTRES = 10           '  Vertical width in pixels
 Private Const BITSPIXEL = 12         '  Number of bits per pixel
 Private Const PLANES = 14            '  Number of planes
 Private Const NUMBRUSHES = 16        '  Number of brushes the device has
 Private Const NUMPENS = 18           '  Number of pens the device has
 Private Const NUMMARKERS = 20        '  Number of markers the device has
 Private Const NUMFONTS = 22          '  Number of fonts the device has
 Private Const NUMCOLORS = 24         '  Number of colors the device supports
 Private Const PDEVICESIZE = 26       '  Size required for device descriptor
 Private Const CURVECAPS = 28         '  Curve capabilities
 Private Const LINECAPS = 30          '  Line capabilities
 Private Const POLYGONALCAPS = 32     '  Polygonal capabilities
 Private Const TEXTCAPS = 34          '  Text capabilities
 Private Const CLIPCAPS = 36          '  Clipping capabilities
 Private Const RASTERCAPS = 38        '  Bitblt capabilities
 Private Const ASPECTX = 40           '  Length of the X leg
 Private Const ASPECTY = 42           '  Length of the Y leg
 Private Const ASPECTXY = 44          '  Length of the hypotenuse
 Private Const LOGPIXELSX = 88        '  Logical pixels/inch in X
 Private Const LOGPIXELSY = 90        '  Logical pixels/inch in Y
 Private Const SIZEPALETTE = 104      '  Number of entries in physical palette
 Private Const NUMRESERVED = 106      '  Number of reserved entries in palette
 Private Const COLORRES = 108         '  Actual color resolution
 ' StretchBlt() Modes
 Private Const BLACKONWHITE = 1
 Private Const WHITEONBLACK = 2
 Private Const COLORONCOLOR = 3
 Private Const HALFTONE = 4
 Private Const MAXSTRETCHBLTMODE = 4
 Private Const TWIPSPERINCH = 1440
 ' ExtFloodFill style flags
 Private Const FLOODFILLBORDER = 0
 Private Const FLOODFILLSURFACE = 1
 ' How many total bytes in our ColorTable
 ' 256*3 RGB Triplets
 Private Const SizeOfMaxLocalColorTable = 768
 ' ** START OF OUR VARIABLES **
 ' Handle to our Bitmap
 Dim hBMap As Long
 ' Screen Compatible DCs
 ' Handle to Access Application Device Context
 Dim hDCApp As Long
 Dim hDCbuffer As Long
 ' Not need for this version
 ' Was for version using DIB
 ' Leave in case we want File Save
 Dim bmh256 As BITMAPINFO256
 ' I put in then took out support for
 ' palette's to look after 256 Color Mode.
 ' Used in Access Version.
 Dim pal256(0 To 255) As PALETTEENTRY
 ' handle to System generated Halftone palette
 Dim hpalHalfTone As Long
 ' hold handle to original bitmap selected into a DC
 Dim hBmpOrig As Long
 ' Array holds starting Byte offset for begining of each Gif Frame
 Private mGifStart() As Long
 ' Array holds starting Byte offset for begining of each Gif Frame
 Private mGifEnd() As Long
 ' *********** CHANGE*********
 ' Change to as Object before release
 ' as it is the only DLL Reference
 ' in this module.
 ' Array of StdPicture objects
 Dim hStdPicture() As Object 'StdPicture

 ' Saves declaring Temp vars in every function/sub
 Private lngRet As Long
 Private blRet As Boolean
 Private lngTemp As Long
 Dim hDCtemp As Long
 Dim bTemp As Byte
 Dim x As Integer
 'Assorted GDI handles
 Private mImageCtl As Object
 Private mhDCImage As Long
 Private mBitmap As Long
 Private mBitMapAdd As Long
 Private hOrigBitmap As Long
 Private hOrigFont As Long
 Private hBrush As Long
 Private hOldBrush As Long
 Private hOrigBrush As Long
 Dim mForeColor As Long
 Dim mBackColor As Long
 ' Need some GDI structures
 ' mainly for Access version.
 Private lpBmih As BITMAPINFO
 Dim rc As RECTL
 Dim bm As BITMAP
 Dim bmap As BITMAP
 ' Byte array to hold entire Original Animated Disk file.
 Dim bArray() As Byte
 ' Logical Screen Descriptor packed bits field
 ' since we will also use this variable in
 ' our processing for each Gif frame.
 ' Don't really need to store this field for
 ' each frame but good idea for debugging
 ' and in case this field is extended or
 ' used for additional purposes.
 Dim PackedFields() As Byte
 ' Logical Screen Descriptor
 ' Background color Index
 Dim BackgroundColorIndex As Byte
 ' Logical Screen Descriptor
 ' Pixel Aspect Ratio
 Dim PixelASpectRatio As Byte
 ' Logical Screen Descriptor
 ' number of bits per primary color in orig pic
 Dim ColorResolution As Byte
 ' Logical Screen Descriptor
 ' Is there a Global Color Table immediately
 ' following this Block
 Dim GlobalColorTableFlag As Boolean
 ' Max 256 Colors of 8bitx3 RGB triplets values
 Dim GlobalColorTable(0 To 767) As Byte
 ' Logical Screen Descriptor
 ' Image Max Width
 Dim LogWidth As Integer
 ' Logical Screen Descriptor
 ' Image Max Height
 Dim LogHeight As Integer
 ' Logical Screen Descriptor
 ' Is Global Color table Sorted?
 Dim GSortFlag As Boolean
 ' Logical Screen Descriptor
 ' raise 2 to the (value of this field + 1)
 ' to get actaul size of Global Color Table
 Dim SizeOfGlobalColorTable As Byte
 ' Arrays to store the value for each
 ' individual frame of the Animated Gif.
 Dim ImageLeft() As Integer
 Dim ImageTop() As Integer
 Dim ImageWidth() As Integer
 Dim ImageHeight() As Integer
 Dim LSortFlag() As Boolean
 Dim LocalColorTableFlag() As Boolean
 Dim InterLaceFlag() As Boolean
 Dim SizeOfLocalColorTable() As Byte
 Dim LocalColorTable(0 To 767) As Byte
 Dim LZWMinimumCodeSize() As Byte
 Dim DelayTime() As Integer
 Dim TransparentColorIndex() As Byte
 Dim DisposalMethod() As Byte
 Dim UserInputFlag() As Boolean
 Dim TransparentColorFlag() As Boolean
 ' ********* FIX !!!!!!!!!!!!!!!!   *********
 ' Will come back and add more support for
 ' LocalColorTables
 'Dim arrayLocalColorTables() As LocalColorTable()
 ' Loop counter
 Dim ctr1 As Long
 ' Holder for temp RGB values
 Dim bTemparray(0 To 2) As Byte
 ' Another Holder for temp BackGround RGB Value
 Dim bBGarray(0 To 2) As Byte
 ' Another Holder for temp Transparent RGB Value comparison
 Dim bTransparentarray(0 To 2) As Byte

 ' For createDibSection
 ' Used in Access version
 'Dim bmh As BITMAPINFO256
 ' User Defined Delay Property
 Dim mUserDelay As Long
 ' Some older Gifs use the Transparent Color
 ' in the actual Image. This property turns on
 ' a function to change the Transparent Color
 ' to a Color not currently used in the Image.
 Dim mChangeTransparentColor As Boolean
 ' Prop to Signal Stop Rendering
 Dim mStopRender As Boolean
 'Default Property Values:
 Const m_def_strGifFileName = ""
 'Property Variables:
 Dim m_strGifFileName As String
 Dim m_hDC As Long
 'Event Declarations:
 Event Resize() 'MappingInfo=UserControl,UserControl,-1,Resize
 Event Paint() 'MappingInfo=UserControl,UserControl,-1,Paint
 ' Number of Frames in this Animated Gif file
 Dim m_NumberOfFrames As Long
 ' Current Frame Number we are rendering
 Dim m_CurrentFrame As Long
 ' Is there a valid stored FileName prop to display
 Dim m_DisplaySavedGifFileName As Boolean
 ' Create instance of MS Common Dialog CLass
 Dim clsDialog As Object 'New clsCommonDialog

 'DEVELOPED AND TESTED UNDER MICROSOFT VB6 ONLY
 'Copyright: Stephen Lebans - Lebans Holdings 1999 Ltd.
 'Name:      AnimatedGifCtl
 'Version:   2.0
 'Purpose:   Allow for display of Animated Gif files.
 '           I've stuck the code in an ActiveX
 '           control just to make it easier to use.
 '           You can pull the code back out and
 '           use the handle to the Device Context
 '           of a PictureBox control instead of the
 '           UserControl. You would also have to
 '           use the PictureBox BackColor prop instead
 '           of the UserControl BackColor prop.
 'Why?:      Because I have never seen complete source code
 '           in Visual Basic to play Animated Gifs.
 'Author:    Stephen Lebans
 'Email:     [e-mail]
 'Web Site:  www.lebans.com
 'Date:      May 20, 2000, 10:14:25 PM
 'Called by: Wherever. :-)
 'Calls:     Bunch of API stuff
 'Inputs:    FileName prop. See Inline Comments for explanation.
 'Output:    See inline Docs for each Function call
 'Credits:   Dev Ashish, Terry Kreft, the MS KB
 '           and others mentioned directly
 '           in the code comments. :-)
 'BUGS:      No serious ones that I've noticed but something always pops up.
 '           Most problems I have seen relate to Video Drivers,
 '           specifically Hardware Acceleration.
 '           Please report any bugs to my email address.
 'What's Missing:
 '           The actual Gif Render function needs to run in its own
 '           seperate thread. Not really possible in this version of VB.
 '           I may revisit this issue when VB7 arives.
 '           Proper Error handling :-(
 '           An AutoBackColor feature. Remember a lot of
 '           Animated Gif files do nto have Transparent Backgrounds.
 '           Please send me a copy of any enhancements/bug fixes you create for this
 '           function at [e-mail]
 'Enjoy
 'Stephen Lebans
 '********************************************
 '***************** CODE START ***************
 Property Get UserDelay() As Long
Attribute UserDelay.VB_ProcData.VB_Invoke_Property = "PropPage1"
 UserDelay = mUserDelay
 End Property
 Property Let UserDelay(lngDelay As Long)
 ' Amount of extra Delay to add to add
 ' to amount specified directly in Gif file
 If IsNumeric(lngDelay) Then
     mUserDelay = lngDelay
 Else
     mUserDelay = 10
 End If
 ' Boundary checking for Max/Min Delay
 If mUserDelay > 1000 Then mUserDelay = 1000
 If mUserDelay < 1 Then mUserDelay = 1
 End Property
 Property Get StopRender() As Boolean
Attribute StopRender.VB_ProcData.VB_Invoke_Property = "PropPage1"
 ' Flag to tell us to stop rendering Gif Frame
 StopRender = mStopRender
 End Property
 Property Let StopRender(blS As Boolean)
 mStopRender = blS
 End Property
 Property Get ChangeTransparentColor() As Boolean
 ' Flag to tell us to change current
 ' Transparent color to a value not used
 ' in the current Image.
 ChangeTransparentColor = mChangeTransparentColor
 End Property
 Property Let ChangeTransparentColor(blC As Boolean)
 mChangeTransparentColor = blC
 End Property
 Property Get NumberofFrames() As Long
 ' How many individual frames make up
 ' this Animated Gif file.
 NumberofFrames = m_NumberOfFrames
 End Property
 Property Let NumberofFrames(nframes As Long)
 m_NumberOfFrames = nframes
 End Property
 Property Get CurrentFrame() As Long
 ' The current Frame number we are rendering.
 ' This is a ZERO based index
 CurrentFrame = m_CurrentFrame
 End Property
 Property Let CurrentFrame(curframe As Long)
 m_CurrentFrame = curframe
 End Property
 Property Get DisplaySavedGifFileName() As Boolean
 ' Did user set the FileName prop in Design View
 DisplaySavedGifFileName = m_DisplaySavedGifFileName
 End Property
 Property Let DisplaySavedGifFileName(blSF As Boolean)
 m_DisplaySavedGifFileName = blSF
 End Property

 Private Sub ClearControl()
 ' Repaint the background of the Control
 Dim rc1 As RECTL
 Dim hNewBrush As Long
 ' For Access Version
 ' Let's use mBackColor
 'lngRet = apiFloodFill(hDC, 0, 0, mBackColor)
 If hdc = 0 Then Exit Sub
 rc1.Right = ScaleWidth
 rc1.Bottom = ScaleHeight
 lngTemp = ConvertSystemColor(BackColor)
 hNewBrush = apiCreateSolidBrush(lngTemp)
 'holdbrush = apiSelectObject(hDC, hnewbrush)
 'lngRet = apiDeleteObject(holdbrush)
 lngRet = apiFillRect(hdc, rc1, hNewBrush)
 lngRet = apiDeleteObject(hNewBrush)
 End Sub

 Public Sub SetBackColor()
 ' Call Color Dialog to select
 ' a new color for the Control's Background
 Dim lngTemp As Long
 ' Call the Color Dialog
 clsDialog.ShowColor
 lngTemp = clsDialog.Color
 If lngTemp <> UserControl.BackColor Then
     UserControl.BackColor = lngTemp
     ClearControl
 End If
 ' For Access Version
 'mImageCtl.BackColor = mBackColor
 'lngRet = apiSetBkColor(hDC, mBackColor)
 End Sub


 Private Function GetUniqueFilename(Optional Path As String = "", _
 Optional Prefix As String = "", _
 Optional UseExtension As String = "") _
 As String
 ' originally Posted by Terry Kreft
 ' to: comp.Databases.ms -Access
 ' Subject:  Re: Creating Unique filename ??? (Dev code)
 ' Date: 01/15/2000
 ' Author: Terry Kreft <[e-mail]>
 ' SL Note: Input strings must be NULL terminated.
 ' Here it is done by the calling function.
   Dim wUnique As Long
   Dim lpTempFileName As String
   Dim lngRet As Long
    Dim FileHeader As BITMAPFILEHEADER
   wUnique = 0
   If Path = "" Then Path = CurDir
   lpTempFileName = String(MAX_PATH, 0)
   lngRet = GetTempFileName(Path, Prefix, _
                             wUnique, lpTempFileName)
   lpTempFileName = Left(lpTempFileName, _
                         InStr(lpTempFileName, Chr(0)) - 1)
   Call Kill(lpTempFileName)
   If Len(UseExtension) > 0 Then
     lpTempFileName = Left(lpTempFileName, Len(lpTempFileName) - 3) & UseExtension
   End If
   GetUniqueFilename = lpTempFileName
 End Function

 Private Function fCreateBitMap() As Boolean
 ' Function to create a Temp Bitmap.
 ' We use this as an off screen buffer
 ' so we elimate screen flashing during redraws
 ' Temp handles for GDI objects
 Dim hBrush As Long, origBrush As Long
 ' Fill in our Bitmap structure
 bmap.bmBitsPixel = 24
 bmap.bmHeight = LogHeight
 bmap.bmPlanes = 1
 bmap.bmWidth = ((LogWidth + 31) And &HFFFFFE0)
 bmap.bmWidthBytes = bmap.bmWidth * 3
 hBMap = CreateCompatibleBitmap(hdc, bmap.bmWidth, bmap.bmHeight)
 ' THis is deleted when Class exits
 hBmpOrig = apiSelectObject(hDCbuffer, hBMap)
 ' Fill in our Rectangle structure
 rc.Top = 0
 rc.Bottom = bmap.bmHeight
 rc.Left = 0
 rc.Right = bmap.bmWidth
 ' Let's fill our new Bitmap with the Background Color
 ' Make sure we can handle System colors(MSB is set)
 lngTemp = ConvertSystemColor(BackColor) '.BackColor)
 hBrush = apiCreateSolidBrush(lngTemp)
 lngRet = apiFillRect(hDCbuffer, rc, hBrush)
 lngRet = apiDeleteObject(hBrush)
 End Function

    Private Function fGifBreakOutFrames() As Boolean
    ' This is the main function. Missing final
    ' support for Local Color Tables. Hopefully
    ' will be included with next revision.
    ' Break an Animated Gif file up into the seperate
    ' GIF frames  that make up the entire animation.

    Const Pathlen = 256

     ' GIF Block Extension Label Values
     Const ExtensionIntroducer = &H21
     Const ApplicationExtension = &HFF
     Const CommentExtension = &HFE
     Const GraphicControlExtension = &HF9
     Const ImageDescriptor = &H2C
     Const PlainTextExtension = &H1
     Const Trailer = &H3B
     ' Intel Byte ordering
     Const GIF89 = &H38464947

     ' Length of Logical Screen Descriptor Block
     Const lenLogicalScreenDescriptor = 7

     ' Length of Graphic Control Extension Block
     Const lenGraphicControlExtension = 7

     ' Length of Image Descriptor Block
     Const lenImageDescriptor = 10

     ' Generally use Hex values but
     ' Decimal is clearer for educational purposes.
     Const Bit8 = 128
     Const Bit7 = 64
     Const Bit6 = 32
     Const Bit5 = 16
     Const Bit4 = 8
     Const Bit3 = 4
     Const Bit2 = 2
     Const Bit1 = 1

    ' Length of Gif File Header
    Const lenGifHeader = 6
    ' Current Position in our Byte Array
    Dim lngCurPosition As Long
     ' Starting offset to  current GIF frame
     Dim lngGifStart As Long
     ' Ending offset to current GIF Frame
     Dim lngGifEnd As Long
     ' Temp var to  check our Constants against
     Dim varTemp As Variant
     ' Need Flag so we can init arrays properly
     ' first time through loops
     Dim blFirstTime As Boolean
     blFirstTime = True
     ' Saves typing and necessary logic to
     ' init and Redim our storage arrays
     ' Loop Counter
     Dim lc As Long
     ' Self explanatory
     Dim strPath  As String * Pathlen
     Dim strPathandFileName  As String
     Dim lngStartLocalColorTable As Long
     Dim lngStartGlobalColorTable As Long
     Dim lngNewTransparent As Long
     Dim lngIndexDuplicate As Long
     Dim lngMax As Long
     Dim lngMaxPrevious As Long
     ' FileHandle Number
     Dim Fnum As Integer

     ' Length of file
     Dim FLength As Long

     ' Initialize our Class arrays
     ' Most importantly we release all of our handles
     ' to the StdPicture objects that were created the
     ' last time we ran this function.
     CleanUp


     ' Is there a valid Filename
     If Len(strGifFileName & vbNullString) < 1 Then Exit Function

      ' Get next avail file handle
     Fnum = FreeFile

     Open strGifFileName For Binary As Fnum
     FLength = LOF(Fnum)
     ' Animated Gifs are relatively Small
     ' Read in Entire File!
     ReDim bArray(1 To FLength)
     Get Fnum, , bArray
     Close Fnum


     ' We need to handle the PackedFlags array seperately
     ' since it is the only array used in this part of the function
     ReDim PackedFields(0)

     ' Let's check and make sure we are an Animated Gif!
     apiCopyMemory lngRet, bArray(1), 4
     If lngRet <> GIF89 Then GoTo err_NoGif

     ' OK let's fill in our variables we derive from
     ' The Logical Screen Descriptor Block that always follows
     ' the 6 byte File Header with the GIF Signature
     apiCopyMemory LogWidth, bArray(lenGifHeader + 1), 2
     apiCopyMemory LogHeight, bArray(lenGifHeader + 3), 2
     apiCopyMemory PackedFields(0), bArray(lenGifHeader + 5), 1
     apiCopyMemory BackgroundColorIndex, bArray(lenGifHeader + 6), 1
     apiCopyMemory PixelASpectRatio, bArray(lenGifHeader + 7), 1


     ' update our current position in the buffer
     lngCurPosition = lngCurPosition + lenGifHeader + lenLogicalScreenDescriptor


     ' Let's derive our props from the packed Bit fields
     If PackedFields(0) And Bit8 Then GlobalColorTableFlag = True
     ' ColorResolution variable is a Byte with really only 3 bits significant
     If PackedFields(0) And Bit7 Then ColorResolution = Bit3
     If PackedFields(0) And Bit6 Then ColorResolution = ColorResolution Or Bit2
     If PackedFields(0) And Bit5 Then ColorResolution = ColorResolution Or Bit1

     If PackedFields(0) And Bit4 Then GSortFlag = True

     ' SizeOfGlobalColorTable variable is a Byte with really only 3 bits significant
     ' SizeOfGlobalColorTable variable is a Byte with really only 3 bits significant
     ' clear out first in case Bit 3 is still set from last time!!!!!!!!!
     ' Geeze this logic took me 2 hours to figure out. :-(
     SizeOfGlobalColorTable = 0
     If PackedFields(0) And Bit3 Then SizeOfGlobalColorTable = Bit3
     If PackedFields(0) And Bit2 Then SizeOfGlobalColorTable = SizeOfGlobalColorTable Or Bit2
     If PackedFields(0) And Bit1 Then SizeOfGlobalColorTable = SizeOfGlobalColorTable Or Bit1

     ' is there a Global Color Table?
     If GlobalColorTableFlag Then
         ' Calculate size of Global Color Table
         ' to calculate offset to jump to start of next Block
         ' Color Table = RGB Triple,  3 bytes per entry
         ' Copy the Color Table to its storage array
         ' Just changed line below to fix problem of starting
         ' to copy color table 2 bytes to soon
         ' 1 byte was index on array other is lngcurposition
         apiCopyMemory GlobalColorTable(0), bArray(lngCurPosition + 1), (3 * (2 ^ (SizeOfGlobalColorTable + 1)))
          lngStartGlobalColorTable = lngCurPosition + 1
         lngCurPosition = lngCurPosition + (3 * (2 ^ (SizeOfGlobalColorTable + 1)))
     End If


     ' Reset starting point for this Gif
     ' update our current position in the buffer
     lngCurPosition = lngCurPosition + 1
     ' Every temp Gif will have File header above and
     ' Global Color Table if it exists
     lngGifStart = lngCurPosition

    'Initialize Loop counter for first time through
    lc = 0
    ' Clear out our array of Standard Picture handles
    Erase hStdPicture()
    Do While lngCurPosition <= FLength
    ' Now are building the guts for each indiviual Gif frame
    ' of the Animated Gif file.
    ' Let's Redim our storage arrays with the
    ' value of the loop counter,

    ReDim Preserve PackedFields(lc)
    ReDim Preserve ImageLeft(lc)
    ReDim Preserve ImageTop(lc)
    ReDim Preserve ImageWidth(lc)
    ReDim Preserve ImageHeight(lc)
    ReDim Preserve LSortFlag(lc)
    ReDim Preserve LocalColorTableFlag(lc)
    ReDim Preserve InterLaceFlag(lc)
    ReDim Preserve SizeOfLocalColorTable(lc)
    ReDim Preserve LZWMinimumCodeSize(lc)
    ReDim Preserve DelayTime(lc)
    ReDim Preserve TransparentColorIndex(lc)
    ReDim Preserve DisposalMethod(lc)
    ReDim Preserve UserInputFlag(lc)
    ReDim Preserve TransparentColorFlag(lc)
    'ReDim Preserve arrayLocalColorTables(lc)
    ' Let's see what the next Block is.
    ' We'll keep moving forward until we hit the
    ' Image Descriptor Block.
    ' Immediately following this Block is the actual
    ' Image data. We will copy from the start of the Gif until the
    ' end of the Image Data to a temporary Disk file.
    ' We will then load this temp GIF file(frame) into an Image Control.
    Do While bArray(lngCurPosition) <> ImageDescriptor
     ' Usually we find next an Image Descriptor or the Netscape Application Extension Block
     ' Let's check for all Blocks that have are proceeded
     ' by the ExtensionInducer value
     If bArray(lngCurPosition) = ExtensionIntroducer Then
     Select Case bArray(lngCurPosition + 1)

     Case ApplicationExtension
     ' This needs to check and see if it is
     ' the Netscape App Ext to read the value
     ' for the number of itinerations the loop
     ' should be executed to display the GIF

     ' Jump to start of Application Data Sub Blocks
     lngCurPosition = lngCurPosition + 14 'bArray(lngCurPosition + 14)
     lngCurPosition = lngCurPosition + bArray(lngCurPosition)

     ' if Next byte is 0 then this is the Block terminator
     'If bArray(lngCurPosition + 1) <> 0 Then
     ' Keep reading Comment Blocks until done
     Do While bArray(lngCurPosition + 1) <> 0
         lngCurPosition = lngCurPosition + bArray(lngCurPosition + 1)
     lngCurPosition = lngCurPosition + 1
    Loop


     Case CommentExtension
     ' Jump length of first Comment Data Sub Block
     ' First Byte of this Data block is always the Size
     ' not including this Byte!
     lngCurPosition = lngCurPosition + 2
     lngCurPosition = lngCurPosition + bArray(lngCurPosition)
     ' if Next byte is 0 then this is the Block terminator
     'If bArray(lngCurPosition + 1) <> 0 Then
     ' Keep reading Comment Blocks until done
     Do While bArray(lngCurPosition + 1) <> 0
         lngCurPosition = lngCurPosition + bArray(lngCurPosition + 1)
     lngCurPosition = lngCurPosition + 1
     Loop
     'End If
     lngCurPosition = lngCurPosition + 1
' **** ERROR
' ** Sharing PackedFields with GraphicControl and ImageDescriptor
' No harm done becasue I store the derived vars from Packed fields individually.
      Case GraphicControlExtension
       ' Here we can derive key props concerning the
       ' playback of the GIF.   ' playbaif Fript 18 ess
 ' Subject: GSlngCurPoReDim P GraphicControlExtension
       ' Here we can derive key props concerning the
       rning the
rPosiyCurPosim,T = 1
itrolExteraphicControlExtension
       ' Here n + 1)cPosiositionb  Cae    Do While bArray(lngCur7
   value
     ' for        proceeded
     dved vbArrBitionbConst' fo*ommenuLio erkloop cof screeismUserDelay = .or tabl 1
    me() As Lo(3 * (2
' **Contrreen DespBuffer As AniyCurolution variable i .or tac)
    servenbB Tr-n the buf
     e's Redim oe with the
ecer rray(0 To 2erty Letwhat the    b  proceHeretLocalColoroperty Gew  ' StggMaxPrevious :umoloroperty Gew  iecant
     ' c P(BJ_PAL = 5
 Private Const OBJ_F  ' c P(BJtABol and Ile i .orEfMnstt OBJ_FeResindiviaybaifme(* = & Bit6y(leny(len = 8
    wsindiviaybaifivate Const OBJ_F  ' c P(vareel
 Est OB OBJ_*****O2ableFlagmntFrame .
 P(hNewB Get NumberofFrames() Assnspr   pF used in
 Privs '  Asck
 2 in
 PPacLfDeho an Ima Get NumberofFrames() As
             urPosititABol andBperty Gew  ' StggMaxPrevious :uf Vlor
 'lngPactensiourPosition = lngCurPosi ' 1 bytmes = mdivi     Bloks Longdl
 Privs Jus2Const OBJ0     Selec    Jump lenO)OTo 2erty  done t'PG!!!!
     ' ptor
' No harm done beO)OTo 2eOTo ur: Terry
 Dim x As No harm ptor
 :uf VlorT n + 1)cPosioat theas
 PixelAn s
 PixelAn s
 PixelAn s
 Pimolor ' ptor
  As No CAPS =METRheas
 PixelAn gdl f Usual har
    wsis No"YuLio er sionMwsis No"YuLio er sionMwsis No"YuLio erfeature. Rem '  Ae Const BITSPIXEL = 12    ) No"Yonst EL 7O(
 2 in vate ConstAwr4
    wsGiferrbArray(le"y  wsGiferrbArray(le"y  wsGif( hdcn the bn s
 Pc eo harmentFrame Aen(UseEgdl f Usual har
  mback out anFT VB6 Oy GIFican ' fy(le"y  Position + lenGifHeader +o harm donee bn s
 Pc eo sition = tl ' fy( Private Const Oit7 =A) PATINVERT ng thea Pc eo sition =sr 2 in vate ConstAwr4
    wsGiferrbAaonstAwr4
    wsGiferrbArray(le"y  w
 ' ** STARTator
     'If bArray(lngCurPosition + 1)  deriveT ngn Ce tock is.
    ' WensionIntro
    ngCurPosition = c eo Gif file
 If e
 If e
 If e
 If e
 If eFnum, , = c eo Gif file
y(leWensionIntro
    ngCurPosit  ScaleWidth
 rceret
illi Then
Rend wsi Then
RdFie If e
 If e
 If eFnum, ,anFT VB6 Oy Gde betFrame AssFnum,Gife    pition = lngCurfy
 e  ' LenitioFLed Gif fiE Lenition =
     Case > e
 If e
 data.Lener
     lngCurPosition = leriveat thOTo    ' if Next byte is 0 then thisNFO
Lsleriveat thted nEis 0 then thisNFO
LslortFlag
 ' Stock L harmentFy    rPosin thL0 th rPosi7ngCurPos18 e  ) O PriL harmene    pitiReDi0 Byte wth rCurPosrPosin thLPosilican wtholor 2im Preserv6itioFLed Gif fiE Lenition =
     explanat  lngCurPos Gif fiE
 If e
 If e
ay = 1ader +oumCodeSize(lc)
   Eeag(lc)
ate Coimld If calculatednaTYr
    wsis No"YuCse > e
oFLed Gt
  5tion =sdps follows
     'opeonstnos
 Pimolor 'si Tng
         ' to copy coIntrndBperty  FLeeserf Firiveat thted nEis 0 then s '  Asck
 2 in@If eFnurta, bArray( in
 Privs '  Asck
 2 in
 PPacLs No"
  P e CnaTYr
urPosition = lngCurPosition lags_sbArray   Dim lngNewTta, bArrPosi7bArraE
 If e
iCompression N
         lngCurPosition = lngCurPosition + bArray(lngCurPosition + 1)
     lngCurPosition = e
 If e
 If e
Name & Preser
iCompression PacLs No"
GENERIC_rPoto t geneConst OBJ_F  ' c P(vareelsuc '  AsuLs No"n wtholo"(Positionu N
ile headerwp2YuLiosuLse blRet P(vareeltositioau wthen s wa Here n TmSOA
  olor
 If lngT= c (    'arm ptor
 :uf VlorT n + 1)cPosioat theas
 PiP unticula ' to calculat Gifsi7
 If e
  Lntrnthted nEis 0ngalculatto calculat Gifs Preserv6'  Asck
 2 in@If esi7bArrNex on l4Dw
Nto fix problem ofccess von
 ' Was for vion pf ' Was fix 2YuL
    bject before release
 0 the Then Sizs Animthodnst N 1)cPosioat theas
 PiP unticsor
= 82oto t E
hPrivate Const COLORRES ayba)r
= 82oto t PrevNafurPosition = eyPi
hex on l4Dw
Nto fixl l4DwmLength 1

     ***
  che
sion cheitABol andBpePosition = eyPi
hex onually.OBpePosition = eyPi
hex onually.OBpePosition = eyPi
 ' We use this as an off screeIf bArraion = ition =re aclate size o eyPi
 ' We u   ' for  ,2i
 ' We u   ze oe aclate  r82o N 1)cPosiion  ' fa.Lener
     rraiot thted nbArrayrraE
 If e
iComps,
yoblem ofted nbArrayrre hypotenuse
 W.or tabl 1 fiaderr' Wr tavo6adeWe uEo sitionay(lenGifUserDelay() Asition =mage datahBpePuse Tse
ray(onay(lenGifUserDelay() Asition =mHandlnew Bitmap w:BOngCeyPia/roperty Gew  iecant
on = &HFF
ray(o   'odn@If eiCurPosition = lngCurPositiorT n + 1)cPosibject before relea If eaOngCFrame Aen(UseEgdfseEgdfseE'&andl(abrolution varition = srDelay() Asitionbl 1 fiaderr' W_ ' Gel 1 if frr' ys
    F
urPodth * 3
 ntro
    ngCursritmap w:BOngCeyPia/rh * 3
 ntro
  baifivate 3
 W.orngCeyPia/rhBitmap w:BOngCeyPia/roperty Gew  iecant
on = &H<ate +um, ,anFT VB6 Oy Gde betFrame essilsck
 2 in
 PPacLfDeho an ImN     Conslmur Class arrase > e
o vasilsck
 2CTINVERT ng thea( i .e >
 PPacLfDeho an ImN     Conslmur Class array
  topdTs 106   N  iecaHere n +cLck of thee essilsck
 2 in
 PPacdTs 106   NbalColorTableFlag Thit6 = f
      x  '   ' shou y(onay(e Co
 PCase > e   N  iee ut6 =n
    ReDim xgdfseE'&andl(abrolutioorTableFlagse > e  Class arra^ releashder + 3), 2
      No hte  rreBox n(UseERT nbEO If e
iComprTonst BITSPIXEL = 12    ) No"Yonst EL 7O(
 2 in vatlprTonst BIComprTonst BITSPIXEL = 1Bol ck
 2 in prTonst BICon
uNto fix problem olenGifAL = 5
 PritMap() As Boonew Bitm
 st BTART OF OrBoonew B   lngC bEO If e
    EraIXEL = 1 P(vareelsuc '  AsuLs C bE   lngCurPosition F Gel 1onslmur Class areonslmtioC bE bE   lngCurPosit F G  lnglors(MSB is set)
 lngTemp = ConvertSystemColor(BackColor) '.BackColor)
 hBrush = apiCreateSolidBrush(lngTemp)
 lngRet = apiFillRect(hDCbuffer, rc, hBrush)
 lngRet = apiDeleteObject(hBrush)
 End Function

    Private Function fGifBrea  Positiorame Aecessary logic to
     ' init and Redim our storage arrays
    eogic tV1ompression Pact = <Pc eo sitn =   * areop
 Dim ctr1 AhTerrlritmap w:BtSyioC b Pri2ArrayrrpentFramenst BIComprTonst BITSPIXE)
  = ition =re 'e 6  BITSPIXE)
  = A LenBrush = apiCreateSolidBrush(lngTemp)
 lngRet
  y(ona     Cxtenedim rs thr value
 9osition + bArray(lth * 3
 ntsu y(ona  ' apiCOy(ona     Cxtsition + bArray(ltwe canapiCOy(ona     Cxtsit enedim rs thr srPosiname) f9osi SRCINVERT = &, rc, hBrush)

Positiolh(lngTemp)
 lngRet = apiFillRect(hDCbuffer, rc, hBrushst B harm dor =0s
 Private Co. :-    ' e
 lngRet = apO
  redraws
 =rleriveat
 P N 1)cPosioat tP N reop
 Dim ctr1 AhTerrlritmap w:BtSyioC b Pri2ArrayrrpentFramenst BIComprTons 'opeonStartGl Cae   C b Pri2Arrayrrpen
 9osincerning the
       rning the
rPosiyCurPosim,T = 1
itning
= eyPpda9osincern ' e
 lUolorsn = lngot including the hypotenu.erning the
       * arng leFlagm   ' GIF Block Extens Mpda9osinonew Bitm
 st B<PAINT = et As  '  ifStaoyorsn = l
    Do n'eyPpda9osincern ' e
    Hre requirPri2Arrayrrpding 1rushst B h(ona  t BionShOake it ers(Mtionis setgTemp)
 lngRett O =
     Case > e
 If e
 data.Lener   Di ctr1 Ahitiolh(SPIXE)
0 To 7uc '  AswsGif( hdcn tnonew Br1 AhTerrlritm thee essilsck
 2 in
 PPacdTs 10x = &H3B
nshsndividuafStaoyorsn = l
    DB
nshsndi ' H :BtnVate Oake it ers(Mtionis setgTemp)
 lngRett O =eonslmtioC bEase  donlrayrs
 ' this Anima
0Intel Byte orderinzeOfLocaning=
 D Tse
ray(ona)
 lngRme bWf( hdcn tnoneI e
 dling the
       * arng leFlagm   ' Gs
tnonr l  of plat BTART'bArray(lngCurPosilgme bWf( hdcn tnoneI eOfLocn tnoneI e
Lerr' W9oneI eaceFl ritm the       yte
 Di=rage arrays
n(UseERT nbEO If e
iCoht = Scale1 is a Byte we hypotenu.iCohUIrec = .or tabl 1
    G   ste orderrray(ltAeayPpdpding 1rushst Bmmes (  2CTIhe
De1 is a Byte we k
 PiP u+ (3 * (2 ^ K(ltAeayst BS_"tnoneI ew 5
 PritMa'miCohtfngRetFillRecmt Private Con l
    DBvate Con our props from the packed Bit fields
     If PackedFields(0) And Bit8 TheyrraE
 If e
iComps,
yoblemc then took out sFosincernaningi ' H :BtnValaring THTte
fle1 i
oion =      of ApplsititABoW.orngCeyPia/rhB tnohst Bmmlt() MNhUIrecsndi ' titABoW.orngCep)
 lngRet
  y(ona     Cxtenedim PritMpx3 RGB tI eOfLocn tnoneI e
Lerr' W9oneI eaceFl ritm the     ushst Bmmp.BTART'bA
  y(ona PritMpx3 RGB)LORR 106   Ns.Top = 0
 rc.BotSizeOfConst Trailesyst Berrlritp.BTART'/ray(ltweene
  y   'y(ltweene
  y   ENERIC_rPoto t geneConst+ 1)cPesE


 Private Function GetUniqueFilena5ern ' e
    l lngCurPo hB
W.orngupdate os
  Pri lngRme
 Private   lnnew Br1 AhTa5ern 'S Ns.Top t7 =ADelay() Asitionbl 1 f
 st B<PAINT = uo"tno=
* r Table = T
Positiolh(lngTemp)
 lngRet = apiFillRect(hDCbuffer, rc, hB(o"t-AccheI e
 bmap.bmBitsPixeump lenO)OTo 2crienO)OTo 2crimes
  Pri lngRm'c then took ouPia/ropray(lnd eOfLocn tnon-
  y(ona PritMpx3lb
 Dimffer, rc, hBrush)
 lrc, so we elimate aSlesy andBpePosition      RTo 2crn
o CAPS =MEen took het =x took ouPia/ropray(lnsck
 2M   Ri= mSFrame AssFnum,Gim we elimenO)OTN= "", _ 'S ' e
  Bperty Gew  ' StggGifA(
 Extennc"im wom the phen LegRme bWnitionn =     mBit(derinzeOelngCurPosition F  Extennc"im wom theene
erinzeO ushst ) No"Yossary lt sFosinempeO ushst ) No"Yosson)

     'ean
 ' FunctioRFT = Ahitios
 =ook ouPia/ropraF1l _ 'S ' e
canapiC??
  l _ is as an off scr   ' initompt Berrlritp.dction it8 ThePositiolh(enO)OTsh)
 lrifA(p.dction sPosition = c enEis 0 then tm womHTte
pna l andBpertyeat
 Dve fromAnimatsh)Dve fromAnima
 Dve fromAnimah =  Eveat
olidBrush(lngTbut goo= mSFrame AssFnfGew  ' S 'eanACxtenedim rs thr value
 9 = 0
 rraydshsenEis 0 then tm womHTte
pna l andBpertyeat
 Dve frraydrag womHTte
pna l andBp,im rs thr value= lngCurPosina l andBp,im rs ted Binitoei 0
 rraydshse H :Bscriet'xteraphshsenEis h)
 lriffffffffRIABLES **
Right = Scals star Loc8   * arng leFlagctemp Gif will have File headeronslmur ClassckColor prop.
Poto t geneConst+ Const+ C2  Prieor procLio erocLio u
 Dim hBMap AsDve R=e
ls objecr procLio rivate Const OBJ_F  'ndBpertyStaoyLio 2Yis h)
 lriffst+ Co our p, hneme(Onificant :BtnVcr procLio rta=ivate CpouPia/r.Yon fa.LenerbillReccture()
 phshseTo 2crirta=yuydshsenEis 0 then tm womHTte
tT = mrs ings 19Temp)
 lngRett Dim hBse)b)OTsh)
eBp,im hBse)b)OTsh)
eBp,im hBse)b)OTsh)
eBp,im hBse)b)Gp= Scalrame       ytsse)o5
 Private Const OBJ_F  'n = l!
     ' Ge nACxtenedim rs thr varray.* COetFils Global Color tast+ C0erty
 2sr entr  p  DB
nshsndi ' H :BtnVate Oake i> e ast+ BtnVaele = RGB Triple,  3 bytes per entry
         ' CocLio erscreeIf bAf>e
 Pr womHTte
pna l aomHTte
pna l aomHTte
pna l aome2M o
     ' i' StggGif   Case e
 If IsN4deros
     Codf>e
e varragenEis
   chtt DHTte
pna l aome2M o
     Codf>e
e vl ' fy( 0 th'v>e
e ngTeAitioif will have File headero tnon-
l0 Theyr  ceTo 2ce  ReDim Prs thr value
  pe AaCaseseERT nbEO If e
iCoht = itoeAr pTriple,  3 bytAor prpc then tkedFIN
l014 'bArr)m Prese storage array
 hdcn tnase >
 eAr pTripl pTripbal Colr.Yoorough
    lc = 0
    ' Clear out our array of Bo lculat Gifsi7
  thenl!
     is thonl DgCurPosition hbArray(le"y lc = 0
  = 0
 Pr womHTte
lh(lngTe 3 b hBse)b)OTsh)
c then tkedFIN
l014
  oCcwht GihTa5ern 'S Ns.Top t7 =Arr)m Prese storage aIN
lpcf   s arrase >the     Prese stortynu.iCehe Pict [e-mail]
 'Enjoy
 ATyte
 ggGifA(
      ebans.com
ion t rc.Bn@lebae aIN
lps.com
ion t rc.BnnRte
ehe PcSb hBse)b)OTscSbelds(0) A)
MopraBn@f wFIN
l014
     Codf>e
e vlu4tigTe 3 bebae aINs ers(Mtiodf>e
e vffffaD
ehe PcSb hBry
c, hBrushs 6  g thBn@vffffaD
ehege aIN
lp ' ition + 14''''''''''''''''''The!ngRm'ctpc then s pops up.n 'S Nso an ImN Flag As B Pit genew  'm Prese statrings m:BtnVam Prese statrings m:BtnVa' Clear out our aren
     ' silsck
 2Bn@ftems
 ,rscreeIf bAf>e
lpcf_ ImN Flaup.n
 7nder =us
 If Rosffer, rc, h Then TAnim  s arrah)DverayLLsAnim  c, h
  aoolor Table
 Dim SizeOfUserDel =
 ehe PcSb hBArrNex on_arrase > Ge nACs   RTo 2crn
o CAPS gRm'ctABoW.Ers
 aIyBn@lebae  File header above apna en this is the Block terminator
     'If bArra"l aome2M o
 im hBse)b)OTsh)
eBp,im l)uSter for fior p=1ugRm'hxas)Cxtenena on =sdpCAPS grreen Dp,im l)uSter for fior p=1ueFilearragenEis
   chtHandlnew Bitmap b As Boonew Bitm
 st BTART OF OrBo
ls oberayLLvlebae  File hnt posi<fffaDmprTonst1onslmurtioC bE isple,  3 bs
 I
  aoolor Table
 Dim SizeOfUserDel =
iu lngRa"l 1platrsn uS grreen Dp,im ls
 I 1im atitABoW.ZsC"l ao<headeronCT2r pTripl pTripitmaperty GeCT2r pTripl pTripitmaperty >e
e vl ' pePosition = eyPi
hex o
 ' Te0Binitowex o
= LogHeitmaM o
    Bn@fteex o
    n@vffffatmapee   N  iee ut6 =n
     erminator
     ion.
     CleIcaon +
 Dim Se vffd   Jump lenO)Orray.* ioC bEsBrush)Se vffdh)Se vffdh)Se vffdh)Se vffd5ll tCurPorush onIntro
    ngCurPosition = c eo Gif finIntroaarrayse 3 p thenER MICR c eo  eo Gif finIntroaarrayse = T ' Te0Biniey)b)OTs(lngCurPng leFlFleFlagm sleFlagctus
 If Rosffer, rct(hBrPorush onIntro
    ngCurPosition = c eo Gif finIntroaarrayse Bp,iosition + 1)  der u
 Dim hBMap
 ' Sst+ C2   ap Dim 7nlPtnon-p,im hBse)b)Gp= Scion + lagctemp Gi+   ion.
     CleIcaon +
 offtrsn uctemp Gi+   ion.
p reading Coeading Coeading Coeadings.To 3 byteroduC
      h Then TAnim  s arrah)DvebNams
 I   p b As Boonewsh)
eBp,aydshse H :BBitm ay reate AssForush onIntBitm ay reate + 1!ode
 '     wsh)
eBp,ayypotenuvaluhn
   Nurfy
 '", _ 'S e) And Bi     wsh)
eBp,ayypotenuvaluhn
   Nurfy
 '", _ 'Sned directelyFl rs6o siile hntraysetrings miile hnush oitm ay ren    wsh)
eBp,ayypotenuvaluhn
   Nurfy
 '", _ps miitm ayia
 '", _psEs miitmtems
CScalda  p x
  = 0
 Pr wom
 'ka=TbEO y
 '", _ps miitm
 '     wsh)
ehB ao<heaN
lpcf   s arrase >theFlagm sleFlagctud'se  ap Dpcf B hsPEsBrush2t Bming ze oe aclate  ris dior p=dl!dBpripame As Long
 'nd of eFlagm ssvaluhn)
eAs Long
 Sw, hBme As Long
 'nd of eFlagm ssvaRsO 'nd
eAs Long
 M-    ' e
 'a  ' e
gRet Coeadiaatio, bAran = _ps miite comparrct(hBrPorush onIntro
 s arra5ernrile om
bEO nal Path ong
/@lebae aIN
lps.com
ion tD
/@lebae aIN
 ' compardar mai   n@vf
bEO nal Path ong
lps.coHTte
     lebae aIN
mrs ingNther mai   n@vf
bEO HTtearrBol andBpePositrese sncernin urfym ayee bn e
  pe AaCaseseERT nbEOae aIiSortFlaytmet Coead,imp t7 =ADelay()w is a By3compa(lc)
   hBse)b)O8 Theyra l aomHT6cFlFleFlagm sleFlagct to jump t 5
 PritMap() As Booncee arrngs miile hnush oitm ay Oue of ra5ernrile om
bEO nalI  lControOue creeIf b,im hBng
= eyPpda9osincern ' e
 vNCE1
 '     ,n 'S,fy
cke  lebae aIN
mrs ingN srDel1M-    'GGGGGGGGGGGGGGGGGGGGVd dir  ,n 'S,fy6 hBnon tSUly onlp)OTo 2crienO)Ons.com
lpsmEI e
 dlinros
    sn 'S,fy
cke  lebae aIN
mrs ingN srDel1M-    'G o sition =sr 2 iiiii   ' Clbae s0ros
   rngs hBnon tS   n@vf
bEO' Fil  DerayLer, rc, hB(o"tr0
gCurPosi varrangN osgTemp =  of thee es
 2.nhe PGGGN
cf   s a =  oosi var ong
/@rations:i7
 rivate CposandBpeP(tRaslc)
 Dveposand   gRme   dlin&HF9 0
 e PGGGNmaacdTs 106   NbalColorTableFlag T of thee es
 2.nhe PGGGN
of thee es
 2.naup.p b the rty
 2.napdpding hr valSCase  rc,acdTs 106 the storage a    1eo Drivers,
  aINay()m wom the phen L!mm
 E ' Clbae0wom the phtpe AaCerocLio gGifStart  Prieor procLiIColor()hn
 ivate CposandBpeP(tRaslc)
 Dveposand   gRme   dlin&HF9 0
 e PGGGNmaacdTs 106   NbaO ' soPIN
l01' soThefnd Propu2.ne    ' Immet'G olin&HF9 0
 e PGGGN(tRaGGGN(ters,
  3ayypot
o CAPS gRm'ctABoW.Ers
3 bytAor prsoPIN
bleWName
n = lngot incth 1,
  Evedior p=dl!dBprct(h  wsrush)eoto   p  DBay()m woNurfy
 '", _le
ngotBpePeGew  ' StggN
of thee es
 h  wsrush)es0erttBpePeGew  ' SIyBn@IDim  gRme   dl)
ebNae bNae f0Eis e es
 lrifAdmaion of t gRme   dl)
Bytes = bmper.coHTte
     lebae aINColor(
canile hnt 106e '
Bytesis Nlat G  ' c rngCeyPaioeimdffd  Bay()m woNurfy
 '"Lio
th ot4et =x took ouPia/ro '", _le
at GMushhea    ReDim Preserve LSortFlag(lc)
    ReDim Preser, _le
ngotBpePeGew  ' StggN
of thee es
 h  wsrush)es0erttBpsr:s  = Ahitios
 =oowolo2m(psmEI nlp)OToHTte
 dln1Paioe ou
 lrifA(p.dction sPosition = andBperhen this wsrush)eshea h(lngTemsoPIN
bl)es0ertt6e '
Bytesio Lof tc2 1eo = Scals star Loc8olor(BackColor)
 hNewBrush = apiCreateSolidBrushor)
 hNe3imdffd   cPIN
bl)eo euxKyCurPosimAPS gRm'PosifCurPosimkgCurPosi
  Pri lngRmR By3coxKyCurPosimA_simA_simft Numbe serve Lgupdate osTsh)
' c  Most importanSPIXE)
  = A LenBrush = apiCrea2M   Ri= mSFrame AssFnuNurfy
 'D = aE.)= mSFramVay Ound Bitook ouPia/ro '"  ' StggOracLs ot4ffer, hBMap)
tma.naup9 = 0
 rrayde3ic)
    ReDim Presp9 =  soPp.dction sPositionportosimA_si
    ReDim vepoeN
bl)eE    ReDFT code)
 ' DatF OPia/a2M   Ri= mSFW.orngCeyPia/rGGNmaacdTsy)
 '  UsualerheGif wil
 vffffa DatF ART'  U
 If e
iCo/rGGNmaoPI
urPodwil
MopraBd  Dind Sub
  .Bn@leb"  ' StggOracLs ot4ffer, hBMap)
tma.naup9 = 0
 rrayde3ic)
    ReDim Presp9 =  soPp.dction sPositionportos0
 Map)
tma.naup9 = m:BtnVam  rrayde3iwase 'S e) Am Map)ct(h  wmpeO ushst ) No"Yossoobal Color tastnsrunaupaIiSortFlayngth oumbe serve Lgupdate  ushst upang
   Dim lng
c, hBrushs 6 Asckue o(hDr
cf   s a = Map)
m lnil
Mopalri
    me() As Lo(3 * (2
' **s(0)uli= mSFW.orrrrrrrde3ic)
    DwEmportaIN
lps If eFnum, ,anFT VB6 d erseldslps If eFnum, ,anFT VB6 d erse
 rrayde3ic)
    om the sSe3ic)
ps If Se vffdh)Se vffdh)SCe3ic)
    om the s vffdh)Se vffdh)SCe3ic)
  naup9 = 0
 rl1M-    'GFvgkro '", _le
at GMusAs Lo(3 * (2
'sctuarraydC p  D2
' **s(TAs Boondr Loc=esPPacdTs 106   NbaDpcf Gif lo2n + lenGifHeade me()R Bte od
at  'bArr)erray of Bo .orngupdate os
  l1M-itionbl 1 f
  Asckue o(hDr
ableFlag T of tooooooooooosSFW.orrrrrrrVam  s 0 0
 .orEfMnrtaIp
 M-    'olornIntro clearerion = 7
    Next seld(2
'sctuarraydC p  D2
' **s(TAs BerPoto tE*3 bytes per entry
         ' CocLio erscreeIf bAf>e
 Pr womHTteseldp  D2
' **s(TAs BerPoto til
 ' s4 euxKyCurPosimAPS gRm'PosiAttof toooooooo **wlor tastnsrunaenO)Onah o+ tilndBpe= leWNathOTo    ' ife4 eux theeIf
   GetUniqueFiGGGG2,dl4Dw
N   RTohsenan I eyra l(Ust  ) No"0ble
f Botraiot  cPIN
 p.dction sPositionportos.Bn@leb"  As BerPoto tE*3
 Dim ightrieor
f Botraos
 Vaele = Rt  cPIN
 p.dction sPositRm'P2Ls
' *  Dim lngMax As LoH vffdh)SCe3ic)
  naup9 = 0
 rl1M-  No"YACxteneld(2
'Ok,ConvertSystemColor(BackColor) '.oN
lwomHTte
tT =RionIntro
    ngCurPosit  )Aray
     Close rPosition + 1
 '2rPofrr'  sition = lngCuEeag(lc)
ate Coimld e s vfkue o"YACxtml DgCues
 If eFnuOy(ona     Cxtsition + bArray(ltwe caIray(ona)
 leux theeIf
Motsit the    b  proceHeretLocon + bArreIf
 l4Dw
 xt:ray(ltwe 0
 r eo Gif finIntr BtnVael  No"YACxteneld(2
'Ok,Cowerion = 7
    Next varrangNtf_  If.)r Access Version
rion = 7
    Next varr
     ldp  D2
'Ne Headop t7 =Arron =meFlagmn= 7
bicCbuffevebNams
 I  rPoto tE*3
 Dim ightrithee essilscup9 = 0
m ightrieor
f Botraos
 Vaele  Ns.ewBru0
 rl1M-  No"YACxteneld(4
 l4Dw
 nd &HFFFFF
  lu0
 reeIffffffff,incernaningi ' H :iincrr'  ssag
 ' Sto'Ne Headop t7 =Arron =meFkue o"YACxtml B)
rea2 lobraio proO LocalCo
 reeup9 = 0
d   gRme   dlin&HF9 0
 e PGGGNmaacdTs 10Ie o"YACxtml B)t BIrray of o
 ar argupd.lpTempe
 Pno D l4Dw
  if lo2
 l4Dw
ex o
   PidBrush(lngTemp)aninmastnl  No" ritmm
 Pno D l4Dw
6 the GIF.
  if t F G  lng)
 Hurrent GI'lobraipng)cray(lp=rtaIp
 M-  yFlRet P(vareeltoslobGIF.
  if t F Gvareeltor'  FFFF
 IiaYACxtmlet P(/rGGNmBit8 Then GlobalCo-srings moff screlor(NmBit8 Tup9 = 0rronA* bArr'
ebNaed Disposa 0
Oior p=dl
3 ed Dispor p=dl
3 edebae t DisTrusrr'
psi= mSFrame)bNaed lobraio Ne HeaTc'=Arro*
 losa 0
 rl1M-  sa 0
beentr Ba 0
beentr Bn
   End If
   GetUnieaceFl ritm the  m6
 2 iHSooooooo **wlor t
beentrs  EndIdcn tnonrPot)Ona)cPosioareIf
 l4Dw
 xrGGNmBatnosPoto tE*3 bytes aninmapackColor) '.BacP
' Y  b,im hBng
 "nee es
 2.nar'tE*3 bytesspna l a6y of o
 arm rsaBd
 l4Dw
ebNtanEw
ebf for all Blocks .orw color foaBd
 l4DaenOHeadop t7 =AContrO= 0
Mn =
Mn =
Mx took ouPia/ropray(lnsck
 2M   Ri= mSFrame AssFnum,Gimht = iBfStart  pding hr valSCS
      ' Get nextOLll Blo 7
    Next seld(2
'sctuarraydC p  D2
'extO .oria/rld(2
'scSybaifivate Const    d lobry of o
 ar argUsualerheGif wil
 vffffa Dn
    DBvate Con our propBFO' soE*3 A)b)OTs(lngCur16jOutur16jOud
 lopBFO'op pkColor) '.BacP
' Y  b,im hBng
beennnnnnnnnnnnnnnnf prS e)raydC pacP
   ) No"Y
     ' Loop CoGp9 = JM  if ReDF", _le
     ' Foop CoGor) '.BacP
' Y  b,im hBng
 et'G oliathns lag(lAssFnumsuLse blRet P(vareeltositioa
 he pheEis h)
 ' FlT nbEO If e
iC rrrrdo2n +(lAssFnumsuIXEL = 1 P(vabumsuLse If e
iC rFnum, ,   wsh)
eBp,ayypotenuvaluhn
MxarguP(/rl)es0ertt6e '
Bytesio Lof tRc GetLio erscrnew  'm Prese so erscrnew  'm scrnew  'm scrnew  'm scrnew  'm scrnew  'm/rl)if e
O ' se so erscrnR_
  e    pi5O If
 lopBFO'opyr 'bbEOazeO ushst ' this Anima
0Intel Byte orderinzeOfLa014  P(vabesy pding hr vtion + 'ayde3icIntel Byte orderinzeOfLa0140st  Meser
iCompr) '.BacP
' Y  b,_le
nuLse Ifa)
 lngRme bd '  ritm ding hr vaIacLsad lobry o)rPos lngCufor ux theeIf
             W!
gry o)rrrrrrrrde3ic)
 de3ic)
 de3icw  't6e '
Bx4nzeOfLa014r SizeOfG DB
nshsnd '
 'Ok,C
 IfGp9 = JO, hB(o"tr0
gCu piCgCu t6e N 1)cPgTemB
Po **wlor t
' FlT
' kue o"YAR '
Bx4nzeOfLdop ngRmpiCgCuacLsnnf PGGGNmaacdTs  e
Anima
 l4Dee essilsck
 2 intRc Geprrrlrldtr0
gCu pim o)rPos o"YAR '
Bx4n,or() 't6umst th  W!
gry o)rrrrenImageD(lngCur16jOutur16YuLiosuT
 Di6jOuO Scale1 is a Byte o"Y
   ha om
bEO v thr gC bE6jOuOcne5 vlu4tigTe 3 bebae aINeD(lngCur16jOGGGGtioRe aINeD(lion +w(y Ound B(tRaslc)
(y rpm**s(TAs N
lps.CLcplk scr valSCS
     sck
cplk scr valpale1ys.Bn@leb" $OuffevebNCoGp9Asitione() As Lo(3 abl 1
    G  n
     I ew 5
eaderAstr0
gC    Gt IiaYACxtmlet P(/rGGNmBit8 Then GlobalCo-srings mopI
    w
orrrenImabae tGGGGGGme aINrrenImabae t() 't6lor foaie
urPodtfEplk scr vaCompr) e mopI
    w
 Le If e
iC din 2.yte  =of oplkaCompr)OuturR4a e mS G  lnenedim rs thr va)
eBp,aD
p      ' Get nextOdoplkkkkkkkkmopIe Next varrangNtf_  IK
  che
sion cheiLisconrPosition + 1
n + 14)
rPo&f ot4ffer, hBMas inga1)cPgome2o"YACxtml B)t BI), (3 a)
eLa b,im/pdpding 1rusa9Fnur stad1itii B(tI), (3 a)urPosi1ffer, hBMas*s(TAngCust upar p=Po&f,Gilerhi+ C din 2-t)
C din 2-t)
 r propBFO' soE*3 A)b)OTs.coHTte
    rronfer, hBMas*s(TAngCust upar p=Po&f,Gilerhi+ C din 2-t)
C din 2-t)
 r propBFO' **wl   rro,Gi   ReoroiC rrrrdo2n +(lAssFnumsuIXEL = 1 P(va
 pI), alpale1ys.Bn@leb" $OuffevebNCoGp9Asitione() As Lo(3 abl 1
    G  n
     I ew 5
eaderAstr0
gC    im PrespGN
of thee st upar p=Po&f,Gilerhi+ C din 2-t)
C din 2m PrespGN
of thee st upar p=Po&f,Gilerhi+ C din 2-t)
C din 2m PresOFlagdo2nY)
 r pro pding hr valSCS
      ' Getl
urarrc)lor
    (dero tnonstion
 Dve  * m2m PreyoneI ef mabae t() 't6lorSa l aomHTte
min nal Path ong
/@leba' canEwst upar p=Po&f,Gilerhi+ C din hrTr0
gC    Cyscr 'of o  Cys  api  if ReDF"he StdPicif ReDF"he St
N   c)
ae aINeD(lngCur16jOGGGGtioRe aIgTemB
Po **wloa*s(TAngCu-t)r eo Goa*s(TAngd  ll keep move)bNaedeyd Gifs  orderu GIF.pI),Bit8 Teerhi+  * m2m PreyoneI et =x took ouPiasOGGGGtioRe aIgTemB ssoobal Color tastk ouPiasOGGGGtioRe aIgTemB  orde ge e
    l lngCurPo hB
* 3kkkkkmopIe Next varraxtOdoplkkkkkkkkmopIe Next vaOsmopIxt varra
' OsmopIxtbae t() nOue creemB   vaOsmopIxt varra
' OsmopIxtbae t() nOue creemB   vaOsme
O ' Bn@IB   vaO, alpale1ys.Bn@leIf b,iOsme
O 'pF Prese_F)
eLa this 1eese_F)
eLa this 1eese_F)
eLa this 1eese_F)
eLa this 1ee alpalerraLoop CgMax Asn 2m Pre alpalerraLoourarrc)lor
    hese_F)
eLrarrc)t() Po *gCuPathpIxt varra
ushs 6 AsnOuit4 = 8
     Constt4 = 8
emp Gif will h 6 AalerrngCFrame(va
A *gCuPathpIxt varra
ushs ese_F)xosition + 2
)pTarra
' OsmopIxtbae t() nOue creemB   vaOsmopIxt varra
' OsmopIxtbae t() nOue creemB   vaOsme
O ' Bn@IB   vaO, alpale1ys.Bn@leIf b,iOsme
O 'pF PriqueFiGGGG2,dl4Dw
N   RTohsenan I eLsAnim  1OS
' Osmopre ron
 Dve  *  phtpe AaCerocLiuLset6e '
gGifStart  =o
6 tan I nd 'h
emp Gif will h 6 AaleBAnim n
Oundon
u alpalrscreerS e)raydC pacPirsconrBit8 Then GlobalCo-srings mopI
    wreseet mhee essi   vaOsmopIxt varra
' OsmopIxtbae t(eFuLse If o srings m*3 bytim  1OS !there a Glogw
 alrscropI
    wriquu    ReDim ,im/pdpFnrra
' OsmopIxtbae t(
o CAPS gRm'ctABoW.Ers
 aIyBn@ ersere fromAnimagCe bytim Ne
 almagCeLocalColorTableFlag(lcacPirscaOsukkkk6e 'N
of tscr
 lngRett Dim hBse)b)OTsh)
N Asck
yPaip
 M-  saonstI
' OsmopIxcN Asck
faYACx.coHTte
    lBse)b)OTsh)
N Asck
yPaip
 M-  saonstI
' OsmopIxcN Asck
faYACx.coHTte
    lBse)b)OTsh)
N Asck
yPaip
 M-  saonstI
' OsmopIxcN Asck
faYACx.coHTte
    lBse)b)OTsh)
N Asck
yPaip
 M-  saonstI
' OsmopIxcN Asck
faYACx.coHTte
 lngRett DimDgCurP'N
of tste
 c 12
 lngRettor p=dlilpap=Po C2  Prieor ppIxt varravCx.coHTte x.coHTher) nOo C2  Prieor ppIxt varravCx.coHTte x.coHnaup9 = Cllpal   wsh)
eBp,ayypocP
' Y  b,im hBng
    DwEmportaIN
lps IspRPsadFdas signixtbaen
 DwEmport hea
   I
' eLo(3 a 7
    Next vaIh)
eBp,ad Dispor p=x theeIf
' e Clear out our array of array
lear op,ayypocYYYYYYYYYYYY-0BinisMLiuLset6e '
gG Byte ravCrrayb)OTsh)
lp creen
N  g(lAssFnMGp= Sca The7
    s
 I   p bpN Asck
s2M  u
 "nee es
 2.nar'tE*3 h 106e '
 2.nar'tE*3eado() As L gr p=dlile-Par'tE*3 h 106
uNto Hurrent Ge)b)OTsh)
N A*3 hT=p=dlile-Paportosim4rtaINnaYACxPurrent.table = RGB2lritp.BTART'Rm'PosiAnaYAayst BS_"tnoneI ew 5
 PritnaYAayst noneI ew 5
YAayst noneI  5
 PritnaYAaiosa  p=dlile-Par'tE*3 h 106
uNto Hurrent GeeI  Se
uNto HXra sign Bot =x took ouPiaerty Ge
    l
rSWe)bedebae t Dicrnew  'ssi   vaOsmo.*p.BTAR' Y mo.*p.BTAR*3eadBa 0
been' Y fer, rc, hBrush)
 reseTTTTTTTTTTTTTTTTTTTTTTTTTiaDmprTonss'2rPofrr'  sition =y   Dim lngNewTta, bArrPosi7bArraE
 If lC   s*s(TA6=ayst nonaOsmo.*pscmapalCo mEI e
 dlngTemp
     If
     -Eh)es0erttBpsrnee es
' Osmo   ' Getsh)
1 P(va
eLrarrc)t() Po *8eGif will h 6 AaleBAnim n
Oundon
u ngRett itiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiisc, hBrush)
Oundon
upang
  tI ad Disp(u
min nal Path ongn our psh)
OundoLo(3laOsmo),Bit8  op,ayyTemB ssos 6 PlaOsm
psitee
 aINmt noneI  5
 P3coxKyCurPosimA_simA_simft Numbe serve Lgupdate sc, hBrush)wil
 vffffa DnettBpses
" ersereiiiiiiiiisc, hBrshsitiiiiiiiiiAsckFlag t7 =Arr)m Presm  hsitor'  F(varenon-s'2rPofrr'  sitacP
' TTTTTTTTTTTEIf
l N Ascpgn Bot =x te!ngRmFlag txPurrent.table 00kedar mai Prex.coHTte x.sign Gif wil
de headero tnon-
l0 Theyr m,opI
    wriquu    ReDim ,im_simsh)
eBiiiiaae aIN
delize Loop couning == the GIF.
  iffy
  cReDF"he StdPicif ReDF"heeoil
 vffffa Dnettemp ge If e
iC din 2.ffy
  cReDF"hushsrraydC p  D2
' *in 2.ffy
aOsmopIxt varra
' OsmopI
  y(ona PritMp
 st BTAgs m:BtnVam    lBse)b)OT
' OsmopI
beecrn
t ightrieor
l0_, Hre requX ightndBpePositrvbeecstIc'=Arror p=m lng
cerseP&HF99999ss
 2.nar'tE*3eae key prnOo C2  PeeIf b,im hBng
= eyPpda9osincesbleWName
= eyPpdamai Prne+ 'ayde3icIn=l B)taespGN
itiamaigI et =x tongny2.nar'tE*3eae key prnOo C2  PeeIf b,im hBng
= eyPpda9osincesbleWaningi '3icIn=l B)eb"  ' SACxtenedim rs 2n +(hI
' Osmo ' Te0Biniey)b)E2
' *mo ' TequX igrPorc)t() Po *8eGif wildleWNtFlaLLrarrc)t(F(var)b)E2gn Gif wil
( ew  Sca TheessrE
   thasee  yte
i!ngRarrc)t(F(v The7
ecer rF_, Hrelag(D0e requc)
   Eeag(Start Ll
(  *gCuPatffffa DnettBpse
 Lsnnf PGGGNmaacdTnt.table 00kedaa l(Ust y
 '", _pfsi7
k ouPiasGN   Rema(UstReDF"he StdPicy' OsmopI
beecTnt.table 00kedaa mIXEL = 1 P(vabe StdPi orde  C2S ,angarra
     ' for the number of itinerations the loopIe st upo *8nf PGGGN)loRc GetLio erscMICR c orSa l aomHTte
e st uffa Dnte x.coHt6 =n
 leny(len Clear out our a
yPaip
fF Priqu=   * arsa 0
doaie
urPodvertSystemC(ac orSaboshse In=l B)taespGN
boshse In=l BlRet P(vareeltoslobGIF.
doaie
urPodvertSyste  s'=l BlRet P(varoreIdld(4
 l4Dw
t i psh)
 s= quu    RkkmopIeP,(F(v Ther p=x theeIf
' e Clear out our array of array
lear op,ayypocYYYYYYYYYYYY-0BinisMLiuLset6el B)taest(F(va P(varor 00oaie
urPodverBse) P(vabe StdPi oLo(3 abl 1
    G  do()or 0"hushseltoslo+Tsy)
 e st upo'hseTerBseae key prnOo Cedebae t   do()or LocalCol    ' for   N
bos  rr  N
ook or Local Gif w,(F(v Ther  Y  ssorTher  YO
   Eeag(el B)taest(F(va PIorde  C2S ,ang
  Aif f
nuLsS ,anPackedMUscI
naOsmosmosmos is asDmaigI et of the Image  Cla 8 Then Gi:(Thern eux1eo (r
cf rent Ge*3eae key prnOo ==x tongnylART'bA
s  Ne
 alm)N
s, _nE abl k g7e healaLLrarrc)t(F(sition = lngCurP Ne
 r ppIxtitdPi oLo(3 abl 1
e  ' SACxx teGeCT2ngRarrc)t(F(v The7
ecer rF_, Hrelag(D0e requc)
   Eeag(Start Ll
(  *gCuPatnisMLiu, hrde  C2pcf   ,
( ew  Sca TheessrE
   thasee  yte
i!ngRO'2rPofrr'  sit,angYY-0BinTgngRO'2rP of thep,
( ew  Sca TheessrE
 ee  yte
i! rF_, Hrelag(D0e requc)
   Eeag(Stho'hseTerBseae key prnOo Cedeb"' SA
 r ppIxiorsms
     Case
ecer9onltositioau wthen s wa Here n Tm ot4et =x took Posimg
= eyPpda9osincesbp=x th of   Ne
l essHere n Tm ot4et se
 x.coHt6 =n
 leny(len Clear oaome2M o
    >Intr BtnVataest(F(va P(vatnVataest(F(va P(vatnVataest(F(va P(vatsrE
TlAscpgn Bot =x   'ob  >ID0e requcEw
   Eeag(Stho'hseTerBseae key prO SraydC p  D2(r
len Cleac)
eSraydC p  D2(r
len CTrPofPofPofPSraydCtI
' OsmopIxcN Asck
faYACx.coHTte
    lBse)b)OTsh)
N Asck
yPaiy prnnTg. of the erBsearelag(D0e requart Ll
(  "' Sil donecessHere n T(F(va P(BinTnbVmf ,y prnOoaOsmopmFile-Par'tFelag(DTAgsJoe-srpxcN Asck
faYACx.coHTte
    lBse)b)OTshT = 1
itrolE
(  u N
u6iiiOoaA
o Lag(Stho'hsurSthoc wa Hee requarrI
     ermho'hsurSPatffffa Dnpiiiiii
    lBse)b)THTte if ReDF"he StdPicif ReDseltoslo+Tsy)
' LLvlebae ar op,ayyp psh) 0
doaie
  hsitor ar op,a
yPmopI
 lon c
 lngRettor p=dn  D2p  DOdlile-Anhe PgRetto
  hsitock
faY1 or Local Gif w,(
  hsitor ar op,aosimg
= eyPpda9osincesbbleWa)'
ELu    Rkkmo'y2.nar'<aninUeading CoeLl
( seLrarrc6, _pe loosI _pe loosI _p=x th ofHee re he4tigTe 3Osmoo'hseT     -
l0_, Hre requX ightndtry
   harment' Pre alpalen tn HXryypotenuvalnar'ew2TTTTTEIfr eo GgCuP (r
cf rent hropI
 lon hropI
o(3 abl 1
a9osint  GI'lobraipng)
Nto fix ,a
yfaY1 orneratio
 =l B)e('TTTTTTTTuGgCu Here tearHee requarrI
 rneratirah tS   n@Vataest(F(4tigTe 3Osmoif w*nstAwr4
TTTT PriS   n@V4
TTTT Priaaipng)
 rninte3iaecssvaRsO 'n=x theeIf
' e vPaip le array ofaslc)
 m  cReDF"hushsrraydC 'S   n@V4
TTTT Priaaipng)
lildleWtnVa 0
 e aIllag txurarrc)lor
 s orneratio
dleWtnVHorope
lildleWcer rF_, Hrelag(D0e requc)
   Eeag(Startg7nl B)e('TTT
Oundebae se In=l n+()m to fix ,t(hDCbuffer, rc,
faY1 I
  y(gTem0e nym Se vffd   Jump
' OsmopI
(  "'  CTrPofUly onlp)OTo 2crienO)Onsmp
' Fe
    lBe ufff if Rrent Ge*p pfix ,t(
    lBse)b)O ClbrraydCBse)b)Oray4r SizeOfG DB
nshsion  urSthoc wa vat
    lBse)b)O ClbmageD(lngCur4tigTe /ofPurPoR' Osmo"d) Po *8eGif wildo"d) Po *8eGif wildo"d) Po *8eGif wildo"d) Po *8eobraipng)
Nto fiseae= e
f:uc)
   Nur,
= eyPp(
  " If lngT= tor ar op,a o"d) P onlp)OTo 2criefix ,eGif wildo"d) Po *8eGif wildo"d) Po *8eobraipng)
Nto fiseae= e
f:uc)
 eIF.
 e= e
f:uc)
uhMBse) P(vabe
( seLreeme
 HI" If lngT= trOundoLo(3laOsmo),Bo"d) Po *8eGif  EndIdcn tnonCur4tigToLo(3laOo *8eGi
nshsion  ue Berls)
N Asck
Oe se In=l n+()m Rrent Ge*p p Hre requX ightndBpePosIn=l cump
' OsmopI
aYACx.coHTte
    lBse)b)OTsh' e vPaip le art vae requX ightndDOdlile-Anhe PgRetto
nshsioorderi  EndIdcn ,anrn eux1e
 rlllBse)et NumberofFrame
   pI
aYACx.coHTte
    lBse)b)OTsh' e vPaip le art vae requX ightndDOdlile-AnhrrlllBsafF Priqu=   * aaip ln  n@V4
TTTT PriaWa)'
ELerls)
N Asck
(3laOsm.BaearHghtndDOdlilemage  C
'Ne HeangT= tor ar op,T Priaai0
 HI" If lngT= trOunFnMGp=
vPack*e InsLart xurar rPoV4
TTBrshsi0e req trOndIdCeyPaai0
 HI" If lngT= tgCuPM o
  o 2criede   n@V4
rHghthngnylART' =n
 tgCuPM o
sitAgsJoe-srpxcN A    proceeded
     dvnt Ge*p  A   rpxcN AcYYYYYYgny
ns   * aiede   n@V4
rHghthngnylART' =lposand  Lerls)
N Ap  A   rpxc'N
of tste
nshsion  ue Berls)
N Asck
Oe se In=l n+()m Rrent Ge*p pui0e ilemaame ightnbp ln  n@V c(
ns thonCeM-  saoLYYYYgny
n9YACx.coHTte
  YAC.i
eBp2Gifs Pres 2criede   n@Previouaos iosition + 1
YACx.coHwtheleBAnim(rofFrame
   pI
aition,I e
 dlGifs Pri0
 scN p.
 scN p.
 scN p.
 scN p.
    pngCurPNy:RT' IC_rPotoonstAwr4
    wsGe aIN
delize LoopACx.coHTLa thi=a3uile hnush oMunee requaEh 106
oopACx.coHTLa thi=a3uile hnush oMunee requaEh 106
oopACx.coHTLa thi=a3uile hnush oMunee requaEh 106
oopACx.coHTLa thi=a3uile hnush oMunee requaEh 106
oopACx.coHTLa thi=a3uile hnush oMunee requaEh 106
oopACx.coHTLa thi=a3uile hnush oMunee requaEh 106
oopACx.c!rL1rrc)t(F(var)b)E2gn vi  ce= esmopmA_simA_simft 1uaEh 106
oo pI
aYOao ritm the  m6
"im Cuuarritm the"c)t(on + 1)
     lngCurPosition = e
 If e
Dt hea
  urPosition = bae se Ii0e ile PgRe he4tigTe 3Osmoo
t iTEIeessrE
  uaEh 106
oopcesbpPl6
oopACx.cAsitionbl 1 fiaderr' W_Eh 10aReDi0 pngT= tgCuPM onbl 1 fiaderr' WaNP3Osmoo
t iTEIeessrE
  u ng=x tongngareo
rlllBse)egACx.c!laLerr' WaNP'HfTA6=am106
oopACx.coHTLahthngssaile hnush oMunee requaEh 106
oopAIeessrMunee )  ps
r, rc, opACx.coH
  urPosit  reqt A   rpxc'N
of tste   bt Ll
(  *gCuPatffffa a2m PrespGN
, hBrueste  i=a3uilo"tr0
gCu piCgCu t6e NH
s, _nE a0p aome2M  th
o Lag(Stn = bae Ce3ic)
    om the s vfle 0fC)b)OTsh)
ae Coo
uNto HXra sig6e ' Wr tavfC)b BtnVAayst ilemaa ' fa.Lener
   Muneethi=aPia/rhB tnohst  esmopmA_oxKyCurPoPia/set6coHwthel0fC)b)OTsh)
nbae t   do()or LocalCol    'l B)t BIrray r LoS*gCuor p=m ffdededMnrtaIp
dlr p=m ffdh onIe 0fC)b  m6
"im (e > e  Class arra^ rec s vfle 0fC)b)OTsh)
ae Mec s vfle ivfle ivfle ivfldlr RCxtenedim rs 2nvfld Hre reqoPia/set6coHwthlr RCxtehsc.Bn@lebae aIN
ll aobae t  ecf)  ps
r, rc, opACx.coH
  urPo ightnPgRe hiiiile hitnapl   End If
  s2M  u
uNto HX 0fCO
  otraiotnthelix ,t(
    lBsYs
r, rle h'r
= 82oto t Prmf  urPosif
' ef tB tnohs
' ef t'urle 0
 Pr wufff if RWb)E2gn vsghelixDd Ib6 ef acP
' Y  b,im hBng
 lemaa ' fa.Lene,Patffffa a2m PrespGN
, hBrueste  i=a3uilo"tr0
gCu piCgCu t6e)Gif  En
' Y  aflnono"trbae aIN
ll aobaetesiGif  Eece= es p=dn  Ddlr RCatec'N
of to"tlto tT hBng
 lemaaPsfp=dn  Dde
i!ngR)O ClsACx.coHTrb"im (e >RCat
i!ngR)O ClsACx.nd a/set6csmo"d)
dlr p=ng=x tleFlag ue
  pe AaCaseseedebae  SolidBrushor)
  r p=ng=x tleFlag ue
  pe AaCaseseedebaew  'w
t i p  urPos2M  u
uNmlet P( s2 Ge*3eaen  Dd et =x toim (e >Riae se Ii0eoRe aIgTem onIntro
    ng ivfle ile hnurrBol andBpePositrese sncernin urfym ayee bNmlepACxctABoW.Ers
 aIyBn@ ersere ftSystemC(Bn@ ersere )O ClsAC rr' ys
sd) Po *8eGif wiaesasGN  e  Class arra^ rec s thr vdDOdlile-An
lirde  CoHt6 =n
 vfld Hre a' ef tB tnohs
'(lc)
atdui0e ilemaame_, hBme AseydCuuarritm sme Asae retnohs
'(lc)
a W!106
oo phseTerBseae key prnOoCC
 2 in@If eFnurta, bArray( or ar op,a
yPmrseP&HF99999ss
 2.na 2.na 2.na 2.na 2.nax retnohs
'(lc)
a W!106
oeTerBseaeDd Ib6 ewo  Cys  af)  ps
r, rys  af) sJoe-srpx vfle CoeTerBsgiTEIeessrE
  esh) 0wf) sw
yPmrax:sdeselidBrushord'
a W!106
oRCat
i In=l n+()ushord'
arrit
 aIyBn@ erseraI" I,ge  SolidBn@ erseraI" I,ge tste   o
lirde  CPy
this 1eese_F)
erueste  i=a3 of App acP
'  n+()ushAsm cPosioatn opACx.coH=E2gnafSI, ewobero'pf ' Was fix 2YuL
    bject before releayero'pf lockTemp)
 llirde  CPy
pf lockTemp)
 lile-s.coH=E2gnaag2YuLe10hAe 0fC'l B)t BtPpda9osixt:rrserolOtEif lnim(rt:rrserolOtEif laamelOtEif lnim(rt  ps
rA6=am106
oopACf lockTaEif lnim(rt  ps
ACf ls t  ps
aag2Yw ps
ACgCuacLepACxctABeIf bAf>e
 aINuo 2c
 aINuo 2c
 ash)
 reseTTTTTTTT
 leny wa s  O ge  *8a W!10O7te drrserolOtock 2c
  TTTT
 Eh 106
oopACx.cmAgsJoe-srpxcN ABaNe HePuypotenuvaluhlpalen tn HXr(F(v Ther p=x thetook PRkkmelidsa W!10O7te drrserolOtock 2c)or c
oopACx.cmAgsJoe-srpxcN ABaNe e)
eL p=n = isim:uacLe n6
oopACx.cmAgsJoe-srpxcN ABaNe e)
eL p=n = isim:e=Arro*
 losa 0
i*8eocmAif lnim(VstIett a
h quu   8(gny
ns   * aiede   n@V4ssim:eaigI et =x tongnww
 HI" If nim(rt:rrserolOtEif laamelOtEif lnim(rt oa
oopACxBruse, rc, opACMshorcopACMshorco
  YAdd) Po *8e)
ae x.cmAgsCxBruse, r.*psRCxtenedimCura"d) Po *8eGif wildo"r"    n     I H=l nm(rt  pinga1)rledp n    f n&n  ue  H=l nm(rt  imelOtEif   f n&n  uCu Here tearHee requarrI
 rneratirah tS   n@Vataest(F(4tigTe 3Osmoif w*nstAwr4
TTTT PriS   n  n@pngCurPNon
rion  n@pdmxDd Ib6 ef 'pf l2TTTTTEIf=n = isim:e=  8(gny
ns   * aiede   n@V4ssim:eaigI et =x tongnww
 HI" If nim(rt:rrserolOtErpx4r Gif wil
de F)
e EL 7f
 2 inFrame
   pl"    n
 Extehsc.Bn@(F(4tigTe 3Osmoes0ertt/rhB tnohst  esmopmA_oxKyCurPoPia/set6coHwthel0fC)b)OTsh)
(  pl"    n
(  pl4tigTe 3pICoe
Mopalri Fraim (e > e CurPoPia/set6coHwthel0fC)b)OTsh)
(  pl"Bse)b)OTaLerr' W The e)
ngotBpePeGew acalda  hnurrBol Bse) P(vabef
' OO6.BnEo"Y
  su StdPicy'e Lck of thee essilsFraim (e >cy'e ralri FbCvabeL 7f
 2 inFw*nstAwr4
 2 inte if ReDF"ht  pingme bChonCepalri Fra cPosioatn opAsC pingc)
len laVmBit8 Then GlobalCo-sringse kCNf wildo"pAsCu
uNto HX 0fCTrs Lo= lngCurPosinFM-  saonstI
' OsmopIxcN A saonstI
' OsmopI
eL p=Ntobalpxc'N
of t"d) P onlp)OTo 2crie=Cx.Rralrd) Pear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ear ea