Planet Source Code Jumbo …e CD Visual Basic 1 to 7/1_2002.ISO/Data/Zips/About_Scre933026122002.psc/APIGraphics.bas

BASIC Source File | 2002-05-01 | 112.9 KB | 2,549 lines

Attribute VB_Name = "modAPIGraphics"
'=================================
' Date : 12/11/2001
'----------------------------------------------
' Author : Eric O'Sullivan
'----------------------------------------------
' Contact : [e-mail]
'----------------------------------------------
' Comments :
'This module was made for using api graphics functions in your
'programs. With the following api calls and function and procedures
'written by me, you have to tools to do almost anything. The only api
'function listed here that is not directly used by any piece of code
'in this module is BitBlt. You have the tools to create and manipulate
'graphics, but it is still necessary to display them manually. The
'functions themselves mostly need hDc or a handle to work. You can
'find this hDc in both a forms and pictureboxs' properties. I have
'also set up a data type called BitmapStruc. For my programs, I have
'used this structure almost exclusivly for the graphics. The structure
'holds all the information needed to reference a bitmap created using
'this module (CreateNewBitmap, DeleteBitmap).
'Please keep in mind that any object (bitmap, brush, pen etc) needs to
'be deleted after use or else it will stay in memory until the program is
'finished. Not doing so will eventually cause your program to take up
'ALL your computers recources.
'Also for anyone using optional paramters, it is probably better to use
'a default parameter values to determine whether or not a parameter
'has been passed than the function IsMissing().
'
'Thank you,
'Eric
'----------------------------------------------
'=================================

Option Explicit
Option Private Module

'--------------------------------------------------------------------------
'API calls
'--------------------------------------------------------------------------
'These functions are sorted alphabetically.

'this will alphablend two bitmaps by a specified
'blend amount.
Public Declare Function AlphaBlend _
       Lib "msimg32" _
            (ByVal hDcDest As Long, _
             ByVal intLeftDest As Integer, _
             ByVal intTopDest As Integer, _
             ByVal intWidthDest As Integer, _
             ByVal intHeightDest As Integer, _
             ByVal hDcSource As Long, _
             ByVal intLeftSource As Integer, _
             ByVal intTopSource As Integer, _
             ByVal intWidthSource As Integer, _
             ByVal intHeightSource As Integer, _
             ByVal lngBlendFunctionStruc As Long) _
             As Long

'This is used to copy bitmaps
Public Declare Function BitBlt _
       Lib "gdi32" _
            (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

'used to change various windows settings
Public Declare Function ChangeDisplaySettings _
       Lib "user32" _
       Alias "ChangeDisplaySettingsA" _
            (ByRef wef As Any, _
             ByVal i As Long) _
             As Long

'creates a brush object which can be applied to a bitmap
Public Declare Function CreateBrushIndirect _
       Lib "gdi32" _
            (lpLogBrush As LogBrush) _
             As Long

'creates a colourspace object which can be applied to a bitmap
Public Declare Function CreateColorSpace _
       Lib "gdi32" _
       Alias "CreateColorSpaceA" _
            (lplogcolorspace As LogColorSpace) _
             As Long

'the will create a bitmap compatable with the passed hDc
Public Declare Function CreateCompatibleBitmap _
       Lib "gdi32" _
            (ByVal hDc As Long, _
            ByVal nWidth As Long, _
            ByVal nHeight As Long) _
            As Long

'this create a compatable device context with the specified
'windows handle
Public Declare Function CreateCompatibleDC _
       Lib "gdi32" _
            (ByVal hDc As Long) _
             As Long

'creates an elliptical region in a hDc
Public Declare Function CreateEllipticRgn _
       Lib "gdi32" _
            (ByVal X1 As Long, _
             ByVal Y1 As Long, _
             ByVal X2 As Long, _
             ByVal Y2 As Long) _
             As Long

'creates an elliptical region in a hDc
Public Declare Function CreateEllipticRgnIndirect _
       Lib "gdi32" _
            (EllRect As Rect) _
             As Long

'creates a font compatable with the specified device context
Public Declare Function CreateFontIndirect _
       Lib "gdi32" _
       Alias "CreateFontIndirectA" _
            (lpLogFont As LogFont) _
             As Long

'creates a pen that can be applied to a hDc
Public Declare Function CreatePen _
       Lib "gdi32" _
            (ByVal nPenStyle As Long, _
             ByVal nWidth As Long, _
             ByVal crColor As Long) _
             As Long

'creates a pen that can be applied to a hDc
Public Declare Function CreatePenIndirect _
       Lib "gdi32" _
            (lpLogPen As LogPen) _
             As Long

'creates a rectangular region on a hDc
Public Declare Function CreateRectRgn _
       Lib "gdi32" _
            (Left As Integer, _
             Top As Integer, _
             Right As Integer, _
             Bottom As Integer) _
             As Long

'creates a solid colour brush to be applied to
'a bitmap
Public Declare Function CreateSolidBrush _
       Lib "gdi32" _
            (ColorRef As Long) _
             As Long

'removes a device context from memory
Public Declare Function DeleteDC _
       Lib "gdi32" _
            (ByVal hDc As Long) _
             As Long

'removes an object such as a brush or bitmap from memory
Public Declare Function DeleteObject _
       Lib "gdi32" _
            (ByVal hObject As Long) _
             As Long

'this draws the animated minimize/maximize rectangeles
Public Declare Function DrawAnimatedRects _
       Lib "user32" _
            (ByVal hWnd As Long, _
             ByVal idAni As Long, _
             lprcFrom As Rect, _
             lprcTo As Rect) _
             As Long

'this draws an icon onto a surphase (eg, a bitmap)
Public Declare Function DrawIconEx _
       Lib "user32" _
            (ByVal hDc As Long, _
             ByVal xLeft As Long, _
             ByVal yTop As Long, _
             ByVal hIcon As Long, _
             ByVal cxWidth As Long, _
             ByVal cyWidth As Long, _
             ByVal istepIfAniCur As Long, _
             ByVal hbrFlickerFreeDraw As Long, _
             ByVal diFlags As Long) _
             As Long

'this draws text onto the bitmap
Public Declare Function DrawText _
       Lib "user32" _
       Alias "DrawTextA" _
            (ByVal hDc As Long, _
             ByVal lpStr As String, _
             ByVal nCount As Long, _
             lpRect As Rect, _
             ByVal wFormat As Long) _
             As Long

'this draws an ellipse onto the bitmap
Public Declare Function Ellipse _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             X1 As Integer, _
             Y1 As Integer, _
             X2 As Integer, _
             Y2 As Integer) _
             As Boolean

'this will set the display settings
Public Declare Function EnumDisplaySettings _
       Lib "user32" _
       Alias "EnumDisplaySettingsA" _
            (ByVal A As Long, _
             ByVal B As Long, _
             wef As DEVMODE) _
             As Boolean

'this provides more control than the CreatePen function
Public Declare Function ExtCreatePen _
       Lib "gdi32" _
            (ByVal dwPenStyle As Long, _
             ByVal dwWidth As Long, _
             lplb As LogBrush, _
             ByVal dwStyleCount As Long, _
             lpStyle As Long) _
             As Long

'this will fill the rectangle with the brush applied
'to the hDc
Public Declare Function FillRect _
       Lib "user32" _
            (ByVal hWnd As Long, _
             Fill As Rect, _
             hBrush As Long) _
             As Integer

'this will fill a region with the brush specified
Public Declare Function FillRgn _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             ByVal HRgn As Long, _
             hBrush As Long) _
             As Boolean

'this will find a window based on its class and
'window name
Public Declare Function FindWindow _
       Lib "user32" _
       Alias "FindWindowA" _
            (ByVal lpClassName As String, _
             ByVal lpWindowName As String) _
             As Long

'this will return the handle of the top-most window
Public Declare Function GetActiveWindow _
       Lib "user32" _
            () _
             As Long

'this will get the state of any specified key - even
'the mouse buttons
Public Declare Function GetAsyncKeyState _
       Lib "user32" _
            (ByVal vKey As Long) _
             As Integer

'this will get the dimensions of the specified bitmap
Public Declare Function GetBitmapDimensionEx _
       Lib "gdi32" _
            (ByVal hBitmap As Long, _
             lpDimension As SizeType) _
             As Long

'this will get the class name from the handle of the
'window specified
Public Declare Function GetClassName _
       Lib "user32" _
       Alias "GetClassNameA" _
            (ByVal hWnd As Long, _
             ByVal lpClassName As String, _
             ByVal nMaxCount As Long) _
             As Long

'this will capture a screen shot of the specified
'area of the client
Public Declare Function GetClientRect _
       Lib "user32" _
            (ByVal hWnd As Long, _
             lpRect As Rect) _
             As Long

'this gets the cursors icon picture
Public Declare Function GetCursor _
       Lib "user32" _
            () _
             As Long

'this gets the position of the cursor on the screen
'(given in pixels)
Public Declare Function GetCursorPos _
       Lib "user32" _
            (lpPoint As PointAPI) _
             As Long

'gets a hDc of the specified window
Public Declare Function GetDC _
       Lib "user32" _
            (ByVal hWnd As Long) _
            As Long

'gets the entire screen area
Public Declare Function GetDesktopWindow _
       Lib "user32" _
            () _
             As Long

'this will get the current devices' capabilities
Public Declare Function GetDeviceCaps _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             ByVal nIndex As Long) _
             As Long

'get the last error to occur from within the api
Public Declare Function GetLastError _
       Lib "kernel32" _
            () _
             As Long

'get the handle of the menu bar on a window
Private Declare Function GetMenu _
        Lib "user32" _
            (ByVal hWnd As Long) _
             As Long

'Get the sub menu ID number. This is used to
'reference sub menus along with their handle
Private Declare Function GetMenuItemID _
        Lib "user32" _
            (ByVal hMenu As Long, _
             ByVal nPos As Long) _
             As Long

'get information about the specified object such as
'its dimensions etc.
Public Declare Function GetObjectAPI _
       Lib "gdi32" _
       Alias "GetObjectA" _
            (ByVal hObject As Long, _
             ByVal nCount As Long, _
             lpObject As Any) _
             As Long

'get the colour of the specified pixel
Public Declare Function GetPixel _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             ByVal X As Long, _
             ByVal Y As Long) _
             As Long

'this will get the handle of a specified
'sub menu using the handle of the menu
'and the item ID
Private Declare Function GetSubMenu _
        Lib "user32" _
            (ByVal hMenu As Long, _
             ByVal nPos As Long) _
             As Long

'get the dimensions of the applied text metrics for
'the device context
Public Declare Function GetTextMetrics _
       Lib "gdi32" _
       Alias "GetTextMetricsA" _
            (ByVal hDc As Long, _
             lpMetrics As TEXTMETRIC) _
             As Long

'returns the amount of time windows has been active for
'in milliseconds (sec/1000)
Public Declare Function GetTickCount _
       Lib "kernel32" _
            () _
             As Long  'very usefull timing function ;)

'retrieves the handle of a window that has the
'specified relationship to the specified window.
Public Declare Function GetWindow _
       Lib "user32" _
            (ByVal hWnd As Long, _
             ByVal wCmd As Long) _
             As Long

'gets the area the specified window takes up
Public Declare Function GetWindowRect _
       Lib "user32" _
            (ByVal hWnd As Long, _
             lpRect As Rect) _
             As Long

'increases the size of a rect structure
Public Declare Function InflateRect _
       Lib "user32" _
            (lpRect As Rect, _
             ByVal X As Long, _
             ByVal Y As Long) _
             As Long

'gets any intersection of two rectangles
Public Declare Function IntersectRect _
       Lib "user32" _
            (lpDestRect As Rect, _
             lpSrc1Rect As Rect, _
             lpSrc2Rect As Rect) _
             As Long

'draws a line from the current position to the
'specified co-ordinates
Public Declare Function LineTo _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             XEnd As Integer, _
             YEnd As Integer) _
             As Boolean

'this will load a cursor into a device context
Public Declare Function LoadCursor _
       Lib "user32" _
       Alias "LoadCursorA" _
            (ByVal hInstance As Long, _
             ByVal lpCursorName As Any) _
             As Long

'this will load an image into a device context
Public Declare Function LoadImage _
       Lib "user32" _
       Alias "LoadImageA" _
            (ByVal hInst As Long, _
             ByVal lpsz As String, _
             ByVal un1 As Long, _
             ByVal n1 As Long, _
             ByVal n2 As Long, _
             ByVal un2 As Long) _
             As Long

'This stops the specified window from updating
'its display. This is mainly used to help cut out
'flicker but does not work on controls.
Public Declare Function LockWindowUpdate _
       Lib "user32" _
            (ByVal hwndLock As Long) _
             As Long
'changes some of a menu's properties
Private Declare Function ModifyMenu _
        Lib "user32" _
        Alias "ModifyMenuA" _
            (ByVal hMenu As Long, _
             ByVal nPosition As Long, _
             ByVal wFlags As Long, _
             ByVal wIDNewItem As Long, _
             ByVal lpString As Any) _
             As Long

'moves the current position to the specified
'point
Public Declare Function MoveToEx _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             X As Integer, _
             Y As Integer, _
             lpPoint As PointAPI) _
             As Boolean

'multiplies two numbers and divides them by a third
'numbers
Public Declare Function MulDiv _
       Lib "kernel32" _
            (ByVal nNumber As Long, _
             ByVal nNumerator As Long, _
             ByVal nDenominator As Long) _
             As Long

'This will increase or decrease a rectangles
'co-ordinates by the specified amount. Usefull
'for moving graphic blocks as rect structures.
Public Declare Function OffsetRect _
       Lib "user32" _
            (lpRect As Rect, _
             ByVal X As Long, _
             ByVal Y As Long) _
             As Long

'Pattern Blitter. Used to draw a pattern onto
'a device context
Public Declare Function PatBlt _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             ByVal X As Long, _
             ByVal Y As Long, _
             ByVal nWidth As Long, _
             ByVal nHeight As Long, _
             ByVal dwRop As Long) _
             As Long

'This draws a polygon onto a device context
'useing an array.
Public Declare Function Polygon _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             lpPoint As PointAPI, _
             ByVal nCount As Long) _
             As Long

'This will draw a set of lines to the specifed
'points
Public Declare Function Polyline _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             lpPoint As PointAPI, _
             ByVal nCount As Long) _
             As Long

'This will draw a set of lines starting from
'the current position on the device context.
Public Declare Function PolylineTo _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             lppt As PointAPI, _
             ByVal cCount As Long) _
             As Long

'This draws a rectangle onto the device
'context
Public Declare Function Rectangle _
       Lib "gdi32" _
            (ByVal hWnd As Long, _
             X1 As Integer, _
             Y1 As Integer, _
             X2 As Integer, _
             Y2 As Integer) _
             As Long

'This will release a device context from
'memory. Not to be confused with DeleteDC
Public Declare Function ReleaseDC _
       Lib "user32" _
            (ByVal hWnd As Long, _
             ByVal hDc As Long) _
             As Long

'this will draw a round-cornered rectangle
'onto the specified device context
Public Declare Function RoundRect _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             ByVal Left As Long, _
             ByVal Top As Long, _
             ByVal Right As Long, _
             ByVal Bottom As Long, _
             ByVal X3 As Long, _
             ByVal Y3 As Long) _
             As Long

'this can convert entire type structures
'to other types like a Long
Private Declare Sub RtlMoveMemory _
        Lib "kernel32.dll" _
            (Destination As Any, _
             Source As Any, _
             ByVal Length As Long)

'this will select the specified object to
'a window or device context
Public Declare Function SelectObject _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             ByVal hObject As Long) _
             As Long

'This sets the background colour on a bitmap
Public Declare Function SetBkColor _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             ByVal crColor As Long) _
             As Long

'This sets the background mode on a bitmap
'(eg, transparent, solid etc)
Public Declare Function SetBkMode _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             ByVal nBkMode As Long) _
             As Long

'The color adjustment values are used to adjust
'the input color of the source bitmap for calls
'to the StretchBlt and StretchDIBits functions
'when HALFTONE mode is set.
Public Declare Function SetColorAdjustment _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             lpca As COLORADJUSTMENT) _
             As Long

'sets the colourspace to a device context
Public Declare Function SetColorSpace _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             ByVal hcolorspace As Long) _
             As Long

'sets the bitmap of a menu
Private Declare Function SetMenuItemBitmaps _
        Lib "user32" _
            (ByVal hMenu As Long, _
             ByVal nPosition As Long, _
             ByVal wFlags As Long, _
             ByVal hBitmapUnchecked As Long, _
             ByVal hBitmapChecked As Long) _
             As Long

'sets the current information about the selected menu
Private Declare Function SetMenuItemInfo _
        Lib "user32" _
        Alias "SetMenuItemInfoA" _
            (ByVal hMenu As Long, _
             ByVal uItem As Long, _
             ByVal fByPosition As Long, _
             lpmii As MENUITEMINFO) _
             As Long

'sets the colour of the specified pixel
Public Declare Function SetPixel _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             ByVal X As Long, _
             ByVal Y As Long, _
             ByVal crColor As Long) _
             As Long

'sets the rectangles size and position
Public 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

'sets the current text colour
Public Declare Function SetTextColor _
       Lib "gdi32" _
            (ByVal hDc As Long, _
             ByVal crColor As Long) _
             As Long

'pauses the execution of the programs thread
'for a specified amount of milliseconds
Public Declare Sub Sleep _
       Lib "kernel32" _
            (ByVal dwMilliseconds As Long)

'used to stretch or shrink a bitmap
Public 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


'--------------------------------------------------------------------------
'enumerator section
'--------------------------------------------------------------------------

'the direction of the gradient
Public Enum GradientTo
    GradHorizontal = 0
    GradVertical = 1
End Enum

'in twips or pixels
Public Enum Scaling
    InTwips = 0
    InPixels = 1
End Enum

'The key values of the mouse buttons
Public Enum MouseKeys
    MouseLeft = 1
    MouseRight = 2
    MouseMiddle = 4
End Enum

'text alignment constants
Public Enum AlignText
    vbLeftAlign = 1
    vbCentreAlign = 2
    vbRightAlign = 3
End Enum

'bitmap flip constants
Public Enum FlipType
    FlipHorizontally = 0
    FlipVertically = 1
End Enum

'image load constants
Public Enum LoadType
    IMAGE_BITMAP& = 0
End Enum

'rotate bitmap constants
Public Enum RotateType
    RotateRight = 0
    RotateLeft = 1
    Rotate180 = 2
End Enum

'--------------------------------------------------------------------------
'Programmer defined data types
'--------------------------------------------------------------------------

'AlphaBlend information for bitmaps
Private Type BLENDFUNCTION
    bytBlendOp As Byte              'currently the only blend op supported by windows 98+ is AC_SRC_OVER
    bytBlendFlags As Byte           'must be left blank
    bytSourceConstantAlpha As Byte  'the amount to blend by. Must be between 0 and 255
    bytAlphaFormat As Byte          'don't set this. If you wish more infor, go to "http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/bitmaps_3b3m.asp"
End Type

'Bitmap structue for menu information
Private Type MENUITEMINFO
  cbSize As Long
  fMask As Long
  fType As Long
  fState As Long
  wID As Long
  hSubMenu As Long
  hbmpChecked As Long
  hbmpUnchecked As Long
  dwItemData As Long
  dwTypeData As String
  cch As Long
End Type

'size structure
Public Type SizeType
        cx As Long
        cy As Long
End Type

'Text metrics
Public Type TEXTMETRIC
        tmHeight As Long
        tmAscent As Long
        tmDescent As Long
        tmInternalLeading As Long
        tmExternalLeading As Long
        tmAveCharWidth As Long
        tmMaxCharWidth As Long
        tmWeight As Long
        tmOverhang As Long
        tmDigitizedAspectX As Long
        tmDigitizedAspectY As Long
        tmFirstChar As Byte
        tmLastChar As Byte
        tmDefaultChar As Byte
        tmBreakChar As Byte
        tmItalic As Byte
        tmUnderlined As Byte
        tmStruckOut As Byte
        tmPitchAndFamily As Byte
        tmCharSet As Byte
End Type


Public Type COLORADJUSTMENT
        caSize As Integer
        caFlags As Integer
        caIlluminantIndex As Integer
        caRedGamma As Integer
        caGreenGamma As Integer
        caBlueGamma As Integer
        caReferenceBlack As Integer
        caReferenceWhite As Integer
        caContrast As Integer
        caBrightness As Integer
        caColorfulness As Integer
        caRedGreenTint As Integer
End Type

Public Type CIEXYZ
    ciexyzX As Long
    ciexyzY As Long
    ciexyzZ As Long
End Type

Public Type CIEXYZTRIPLE
    ciexyzRed As CIEXYZ
    ciexyzGreen As CIEXYZ
    ciexyBlue As CIEXYZ
End Type

Public Type LogColorSpace
    lcsSignature As Long
    lcsVersion As Long
    lcsSize As Long
    lcsCSType As Long
    lcsIntent As Long
    lcsEndPoints As CIEXYZTRIPLE
    lcsGammaRed As Long
    lcsGammaGreen As Long
    lcsGammaBlue As Long
    lcsFileName As String * 26 'MAX_PATH
End Type

'display settings (800x600 etc)
Public Type DEVMODE
        dmDeviceName As String * 32
        dmSpecVersion As Integer
        dmDriverVersion As Integer
        dmSize As Integer
        dmDriverExtra As Integer
        dmFields As Long
        dmOrientation As Integer
        dmPaperSize As Integer
        dmPaperLength As Integer
        dmPaperWidth As Integer
        dmScale As Integer
        dmCopies As Integer
        dmDefaultSource As Integer
        dmPrintQuality As Integer
        dmColor As Integer
        dmDuplex As Integer
        dmYResolution As Integer
        dmTTOption As Integer
        dmCollate As Integer
        dmFormName As String * 32
        dmUnusedPadding As Integer
        dmBitsPerPel As Long
        dmPelsWidth As Long
        dmPelsHeight As Long
        dmDisplayFlags As Long
        dmDisplayFrequency As Long
End Type

Public Type Rect
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Public Type BitmapStruc
    hDcMemory As Long
    hDcBitmap As Long
    hDcPointer As Long
    Area As Rect
End Type

Public Type PointAPI
    X As Long
    Y As Long
End Type

Public Type LogPen
        lopnStyle As Long
        lopnWidth As PointAPI
        lopnColor As Long
End Type

Public Type LogBrush
        lbStyle As Long
        lbColor As Long
        lbHatch As Long
End Type

Public Type FontStruc
    Name As String
    Alignment As AlignText
    Bold As Boolean
    Italic As Boolean
    Underline As Boolean
    StrikeThru As Boolean
    PointSize As Byte
    Colour As Long
End Type

Public Type LogFont
    'for the DrawText api call
    lfHeight As Long
    lfWidth As Long
    lfEscapement As Long
    lfOrientation As Long
    lfWeight As Long
    lfItalic As Byte
    lfUnderline As Byte
    lfStrikeOut As Byte
    lfCharSet As Byte
    lfOutPrecision As Byte
    lfClipPrecision As Byte
    lfQuality As Byte
    lfPitchAndFamily As Byte
    lfFaceName(1 To 32) As Byte
End Type

Public Type Point
    'you'll need this to reference a point on the
    'screen'
    X As Integer
    Y As Integer
End Type

'To hold the RGB value
Public Type RGBVal
    Red As Single
    Green As Single
    Blue As Single
End Type

'bitmap structure for the GetObject api call
Public Type BITMAP '14 bytes
        bmType As Long
        bmWidth As Long
        bmHeight As Long
        bmWidthBytes As Long
        bmPlanes As Integer
        bmBitsPixel As Integer
        bmBits As Long
End Type

'--------------------------------------------------------------------------
'Constants section
'--------------------------------------------------------------------------

'general constants
Public Const GW_CHILD = 5
Public Const GW_HWNDFIRST = 0
Public Const GW_HWNDLAST = 1
Public Const GW_HWNDNEXT = 2
Public Const GW_HWNDPREV = 3
Public Const GWL_WNDPROC = (-4)
Public Const IDANI_OPEN = &H1
Public Const IDANI_CLOSE = &H2
Public Const IDANI_CAPTION = &H3
Public Const WM_USER = &H400

'alphablend constants
Public Const AC_SRC_OVER = &H0
Public Const AC_SRC_ALPHA = &H0

'Image load constants
Public Const LR_LOADFROMFILE As Long = &H10
Public Const LR_CREATEDIBSECTION As Long = &H2000
Public Const LR_DEFAULTSIZE As Long = &H40

'PatBlt constants
Public Const PATCOPY = &HF00021 ' (DWORD) dest = pattern
Public Const PATINVERT = &H5A0049       ' (DWORD) dest = pattern XOR dest
Public Const PATPAINT = &HFB0A09        ' (DWORD) dest = DPSnoo
Public Const DSTINVERT = &H550009       ' (DWORD) dest = (NOT dest)
Public Const BLACKNESS = &H42 ' (DWORD) dest = BLACK
Public Const WHITENESS = &HFF0062       ' (DWORD) dest = WHITE

'Display constants
Public Const CDS_FULLSCREEN = 4
Public Const DM_BITSPERPEL = &H40000
Public Const DM_PELSWIDTH = &H80000
Public Const DM_PELSHEIGHT = &H100000
Public Const DM_DISPLAYFLAGS = &H200000
Public Const DM_DISPLAYFREQUENCY = &H400000

'DrawText constants
Public Const DT_CENTER = &H1
Public Const DT_BOTTOM = &H8
Public Const DT_CALCRECT = &H400
Public Const DT_EXPANDTABS = &H40
Public Const DT_EXTERNALLEADING = &H200
Public Const DT_LEFT = &H0
Public Const DT_NOCLIP = &H100
Public Const DT_NOPREFIX = &H800
Public Const DT_RIGHT = &H2
Public Const DT_SINGLELINE = &H20
Public Const DT_TABSTOP = &H80
Public Const DT_TOP = &H0
Public Const DT_VCENTER = &H4
Public Const DT_WORDBREAK = &H10
Public Const TRANSPARENT = 1
Public Const OPAQUE = 2

'CreateBrushIndirect constants
Public Const BS_DIBPATTERN = 5
Public Const BS_DIBPATTERN8X8 = 8
Public Const BS_DIBPATTERNPT = 6
Public Const BS_HATCHED = 2
Public Const BS_HOLLOW = 1
Public Const BS_NULL = 1
Public Const BS_PATTERN = 3
Public Const BS_PATTERN8X8 = 7
Public Const BS_SOLID = 0
Public Const HS_BDIAGONAL = 3               '  /////
Public Const HS_CROSS = 4                   '  +++++
Public Const HS_DIAGCROSS = 5               '  xxxxx
Public Const HS_FDIAGONAL = 2               '  \\\\\
Public Const HS_HORIZONTAL = 0              '  -----
Public Const HS_NOSHADE = 17
Public Const HS_SOLID = 8
Public Const HS_SOLIDBKCLR = 23
Public Const HS_SOLIDCLR = 19
Public Const HS_VERTICAL = 1                '  |||||

'BitBlt constants
Public Const SRCAND = &H8800C6  ' (DWORD) dest = source AND dest
Public Const SRCCOPY = &HCC0020 ' (DWORD) dest = source
Public Const SRCERASE = &H440328        ' (DWORD) dest = source AND (NOT dest )
Public Const SRCINVERT = &H660046       ' (DWORD) dest = source XOR dest
Public Const SRCPAINT = &HEE0086        ' (DWORD) dest = source OR dest
Public Const MERGECOPY = &HC000CA       ' (DWORD) dest = (source AND pattern)
Public Const MERGEPAINT = &HBB0226      ' (DWORD) dest = (NOT source) OR dest
Public Const NOTSRCCOPY = &H330008      ' (DWORD) dest = (NOT source)
Public Const NOTSRCERASE = &H1100A6     ' (DWORD) dest = (NOT src) AND (NOT dest)

'LogFont constants
Public Const LF_FACESIZE = 32
Public Const FW_BOLD = 700
Public Const FW_DONTCARE = 0
Public Const FW_EXTRABOLD = 800
Public Const FW_EXTRALIGHT = 200
Public Const FW_HEAVY = 900
Public Const FW_LIGHT = 300
Public Const FW_MEDIUM = 500
Public Const FW_NORMAL = 400
Public Const FW_SEMIBOLD = 600
Public Const FW_THIN = 100
Public Const DEFAULT_CHARSET = 1
Public Const OUT_CHARACTER_PRECIS = 2
Public Const OUT_DEFAULT_PRECIS = 0
Public Const OUT_DEVICE_PRECIS = 5
Public Const OUT_OUTLINE_PRECIS = 8
Public Const OUT_RASTER_PRECIS = 6
Public Const OUT_STRING_PRECIS = 1
Public Const OUT_STROKE_PRECIS = 3
Public Const OUT_TT_ONLY_PRECIS = 7
Public Const OUT_TT_PRECIS = 4
Public Const CLIP_CHARACTER_PRECIS = 1
Public Const CLIP_DEFAULT_PRECIS = 0
Public Const CLIP_EMBEDDED = 128
Public Const CLIP_LH_ANGLES = 16
Public Const CLIP_MASK = &HF
Public Const CLIP_STROKE_PRECIS = 2
Public Const CLIP_TT_ALWAYS = 32
Public Const WM_SETFONT = &H30
Public Const LF_FULLFACESIZE = 64
Public Const DEFAULT_PITCH = 0
Public Const DEFAULT_QUALITY = 0
Public Const PROOF_QUALITY = 2

'GetDeviceCaps constants
Public Const LOGPIXELSY = 90        '  Logical pixels/inch in Y

'colourspace constants
Public Const MAX_PATH = 260

'pen constants
Public Const PS_COSMETIC = &H0
Public Const PS_DASH = 1                    '  -------
Public Const PS_DASHDOT = 3                 '  _._._._
Public Const PS_DASHDOTDOT = 4              '  _.._.._
Public Const PS_DOT = 2                     '  .......
Public Const PS_ENDCAP_ROUND = &H0
Public Const PS_ENDCAP_SQUARE = &H100
Public Const PS_ENDCAP_FLAT = &H200
Public Const PS_GEOMETRIC = &H10000
Public Const PS_INSIDEFRAME = 6
Public Const PS_JOIN_BEVEL = &H1000
Public Const PS_JOIN_MITER = &H2000
Public Const PS_JOIN_ROUND = &H0
Public Const PS_SOLID = 0

'mouse cursor constants
Public Const IDC_APPSTARTING = 32650&
Public Const IDC_ARROW = 32512&
Public Const IDC_CROSS = 32515&
Public Const IDC_IBEAM = 32513&
Public Const IDC_ICON = 32641&
Public Const IDC_NO = 32648&
Public Const IDC_SIZE = 32640&
Public Const IDC_SIZEALL = 32646&
Public Const IDC_SIZENESW = 32643&
Public Const IDC_SIZENS = 32645&
Public Const IDC_SIZENWSE = 32642&
Public Const IDC_SIZEWE = 32644&
Public Const IDC_UPARROW = 32516&
Public Const IDC_WAIT = 32514&

'menu constants
Private Const MFT_RADIOCHECK = &H200&
Private Const MF_BITMAP = &H4&
Private Const MIIM_TYPE = &H10
Private Const MIIM_SUBMENU = &H4

'some key values for GetASyncKeyState
Public Const KLeft = 37
Public Const KUp = 38
Public Const KRight = 39
Public Const KDown = 40

'some mathimatical constants
Public Const Pi = 3.14159265358979

'--------------------------------------------------------------------------
'Variable declarations section
'--------------------------------------------------------------------------

'This stores the various points of a polygon. Use DrawPoly to draw
'the polygon with the points specified in the array.
'Also see AddToPoly, ClearPoly and DelFromPoly
Private PolygonPoints() As PointAPI

'some general variables used by some api calls
Private rctFrom As Rect
Private rctTo As Rect
Private lngTrayHand As Long
Private lngStartMenuHand As Long
Private lngChildHand As Long
Private strClass As String * 255
Private lngClassNameLen As Long
Private lngRetVal As Long
Private blnResChanged As Boolean

'--------------------------------------------------------------------------
'Procedures/functions section
'--------------------------------------------------------------------------

Public Sub WinBlend(ByVal lngDesthDc As Long, _
                    ByVal lngPic1hDc As Long, _
                    ByVal lngPic2hDc As Long, _
                    ByVal intDestX As Integer, _
                    ByVal intDestY As Integer, _
                    ByVal intWidth As Integer, _
                    ByVal intHeight As Integer, _
                    ByVal lngPic1X As Integer, _
                    ByVal lngPic1Y As Integer, _
                    ByVal lngPic2X As Integer, _
                    ByVal lngPic2Y As Integer, _
                    Optional ByVal sngBlendAmount As Single = 0.5, _
                    Optional ByVal enmMeasurement As Scaling = InPixels)

    'This uses the windows GDI to blend two bitmaps
    'together. If you need to use a blend mask, then
    'please use the BFAlphaBlend procedure. This function
    'is only supported by w98+ and w2000+

    Dim udtTempBmp As BitmapStruc       'this temperorily holds the blended pictures before copying to the destination bitmap
    Dim udtBlendInfo As BLENDFUNCTION   'this sets the blend information for the api call
    Dim lngBlendStruc As Long           'this will hold the converted BLENDFUNCTION structure
    Dim lngResult As Long               'this holds any error value returned from the api call
    Dim intPxlHeight As Integer         'the height in twips of a pixel
    Dim intPxlWidth As Integer          'the width in twips of a pixel

    'convert values to pixels if necessary
    If enmMeasurement = InTwips Then
        'get the pixel intHeight and intWidth
        'values per twips in the current
        'screen resolution.
        intPxlHeight = Screen.TwipsPerPixelY
        intPxlWidth = Screen.TwipsPerPixelX

        'start converting the twip values to pixels
        intDestX = intDestX / intPxlWidth
        intWidth = intWidth / intPxlWidth
        lngPic1X = lngPic1X / intPxlWidth
        lngPic2X = lngPic2X / intPxlWidth
        intDestY = intDestY / intPxlHeight
        intHeight = intHeight / intPxlHeight
        lngPic1Y = lngPic1Y / intPxlHeight
        lngPic2Y = lngPic2Y / intPxlHeight
    End If

    'set the blend information
    With udtBlendInfo
        .bytBlendOp = AC_SRC_OVER
        .bytSourceConstantAlpha = CByte(255 * sngBlendAmount)
    End With

    'convert the type to a long
    Call RtlMoveMemory(lngBlendStruc, _
                       udtBlendInfo, _
                       4)

    With udtTempBmp
        'set the bitmap dimensions
        With .Area
            .Bottom = intHeight
            .Right = intWidth
        End With

        'create the new bitmap
        Call CreateNewBitmap(.hDcMemory, _
                             .hDcBitmap, _
                             .hDcPointer, _
                             .Area, _
                             lngDesthDc)

        'copy the first picture
        lngResult = BitBlt(.hDcMemory, _
                           0, _
                           0, _
                           intWidth, _
                           intHeight, _
                           lngPic1hDc, _
                           lngPic1X, _
                           lngPic1Y, _
                           SRCCOPY)

        'blend the second picture with
        'the first picture
        lngResult = AlphaBlend(.hDcMemory, _
                               0, _
                               0, _
                               intWidth, _
                               intHeight, _
                               lngPic2hDc, _
                               lngPic2X, _
                               lngPic2Y, _
                               intWidth, _
                               intHeight, _
                               lngBlendStruc)

        'copy the picture to the destination
        lngResult = BitBlt(lngDesthDc, _
                           intDestX, _
                           intDestY, _
                           intWidth, _
                           intHeight, _
                           .hDcMemory, _
                           0, _
                           0, _
                           SRCCOPY)

        'remove the temperory bitmap from memory
        Call DeleteBitmap(.hDcMemory, _
                          .hDcBitmap, _
                          .hDcPointer)
    End With
End Sub


Public Sub BFAlphaBlend(ByVal lngDesthDc As Long, _
                        ByVal lngPic1hDc As Long, _
                        ByVal lngPic2hDc As Long, _
                        ByVal intDestX As Integer, _
                        ByVal intDestY As Integer, _
                        ByVal intWidth As Integer, _
                        ByVal intHeight As Integer, _
                        ByVal lngPic1X As Integer, _
                        ByVal lngPic1Y As Integer, _
                        ByVal lngPic2X As Integer, _
                        ByVal lngPic2Y As Integer, _
                        Optional ByVal sngBlendAmount As Single = 0.5, _
                        Optional ByVal lngMaskhDc As Long = 0, _
                        Optional ByVal intMeasurement As Scaling = InPixels)

    'This is a "brute force" alpha blend function. Because it's written in
    'vb, this function is not as fast at it might otherwise be in another
    'language like C++ or Fox.
    'The purpose of the function is to mix the colours of two bitmaps to
    'produce a result that looks like both pictures. Think of it as fading
    'one picture into another. I get the pixel colour of a point in picture1,
    'and the colour of the corresponding pixel in pixture2, find the 'middle'
    'colour and put it into the destination bitmap. There are no calls to
    'other procedures or functions other than api calls. This is to improve
    'speed as all calculations are made internally.
    'The parameter sngBlendAmount MUST be between 1 and 0. If not then
    'the value is rounded to 1 or zero.
    'However, sngBlendAmount is ignored if a Mask bitmap has been specified.
    'Please note that if the mask used only contains black or white pixels,
    'then it is recommended that you use the MergeBitmaps procedure as
    'it will process the bitmaps much faster (by about 15 to 30 times).
    'Keep in mind that using a mask bitmap is a----- 30 tubliESS = &HFF001as fare n           'get the pixel 3)ttst FW_BO O)5
    bytAlphaFormat As Byte          'don't set this. If you wish more infor, go to "http://msdn.microsoft.com/library/default.asp?url=/library/en-us/gdi/bitmaps_3b3m.asp"
End Type

'Bitmap structue for menu information
Private Type MENUITEMINFO
  cbSSub BFAlphap_
             ByVal un1 rst
Public Cor GetASyn
    bytAlphaFormat As Byte          'don't set thi           ByVal lngPic1hDyVal lngPn1 rsic Const BS_HOLLOW = 1
Public Const BngPn1 rsic Coong, _
         'creblic Con
    bytAlphaFormat As ByS_SOLID = 0

'mouse cursor constants)O bytc Con set thi           ByVal _and put it inault.a2            in(Faonst SRCCyVal nctif            udtBlendInfo, _
Y As Long) _, _
   N      ByVal _and put it inault.a2       TOptional ByVal RO
'window s &H"HByVal _and put it inault.a2       TOptim           intHeight, _
             re Func          Optional ByVal unc          Op KfSlngPic2Y =al l     re ntegelmwindow.
Pesult = BitBlt(mwindow.
Pesult = BitBlt(mwindow.
Pe
Public Coind  Dimg, _
     Long)S-------
cF_FACESIZE =------ apilt = BitBlt(mwinDc As eH f it as fe MergeBitmaps p   Optional ByVal lngMaskVal          l lngMaskVal          l lngMaskVaIZE =--ow.
Pesult = BitBlt(mwindow.
Pesmaps p   Optit(mwind lngBltapilt = BitBl           .hDc       ' (D.d As Long
Private strClass As String * 255
Pri6ie   B----g    TOw    'colLong
Private t BSk0Public Cons1     lngRes rsie t BSk0Public Cons1         l l"user32" _
            (lpPoint As PoaOSc Cons1     lngRes rsie t BSk0        B BidsInterse is" _
    1                   Tmory, _
   c Const ion Modiut As PoaOSmCharSet As Bypi3R3wise(ut As PoaOSmCharSet As Bypi3R3wise(ut
Private rctTo
    'T
Private lzal hDc As Long, _
             ByVal hObject As=FULLFACESIZE idth
        lngPic1X = lngPic1X / intPxlWidth
        lngPic'Thisser32" _2" _rmation for the api call
   PI"PPic'Thisser32" _2" _rmation for the apiiof lines tsCFl
   PI"PPic'Thisser32" _2" _rmati2" _infor, go to "http:/r32" _2" _r        ln'creblic C           . Typr        ln'cr)ntHeight Ago          . T---------ttp://msdn.microsoft.com/lis=FULLFACtmaps p   Optional ByVal lngMask lngPic1X =    intDestY = intDByValal lic1X lngPer32" _
            (lpPoint As Poast n1X lngPCERASE = uS

'some int As .=1e) OR tY = EvDAgo      O ByVaunction PatB
'PcNamMf it as fe MergeBitmaps p   Optional ByVals _rmati2" _infor,        askVal          l lngMaskVaIZong, _       .BConsttrClTntWidth =2       (RASE = &H44t)
    End With

    'convert the type to agMaskVaIZong, eral variablOptia0m.onst IDANI_Che tyg lngPic1hDc As Long, _

   PI"PPic'Thissesadp   Optional ByVal lngMask lngPic1X =    intDestY = intDByValal lic1X lngPer32" _
            (lpPoint As Poast n1X lngPCERASE = uS

'some int As .=1e) OR t _
   ndAmount Mrwise be il hDc As Long, _1lor As Long) _
   se be il hrLORADJ'mou.=1e) OR t _
   ndAmount Mrwise be  t _o          a
            .Bottom = intHeight
        ictures. Think of it as faight
      hinkl
   PI"PPic'T2     .hDAs Bd    ByVals _rmati2" _infor,        askVal      s tsCFl
   PI"Pterse is" _ammaRed As Long
    lcsGammaGreen As Long
    lcsGammaBlue As Ln As LongX
 kPEf be  t _o        kPEf be .P As Long
VDim lngBlendStruc As Longm8e.P As Long
VDim lngStruc As Lohey'DyVal lngPn1ngBlendStryhDcBiInteger
        caGreenGamma Ast BSk0Public Cons1     lngRes rsie t mma onGa2Intec1X lngPer32" _As Lohey'DyVal  Loheygs
Public Const LF_FACESIZE = 32
Public Const FW_BOLD = 700
Public Const FW_DONTCARE =smDefaultChar As Byte
      cMemory, _
(3nd tk0Public Cons1     lngRes rsie t mma on
  Nn Moongo msfaultChar5     lngPic))Xease notnDs rsie tClTntWidth =2       (RASE = &H44t)
  ()SSub BFAlphap_
 )Xeas'This will releasl lngPInte&
Public ConxlWidth
   OeCTdoaOSttp://msdn.ic ConCcaGrS the SVal   lngPic1Xes or functioBrsieoW= 900
Puk'PI
        lopnColor As Long
End Type
sponding pixafend(ertical = 1
End Enum

'in twips or pixels
Public Enum Scaling
    InTwips = 0
    InPixels = 1
End Enum

'The key values of the mouse butPHe             askVal               ByVal intDestY As Integer, nT Integer
        caGre,nteger, nT Integerl
    'one picturvate tong
     BConsttrClTntWidth =2       (RASE = &gPic2 =al l Inte&
Public ConxlY
     BConte&
Puwips = 0ferse is" _
    1     s = 0ferse is" _
    1     s = 0ferse is" _
    1     s = 0ferse is" _
    1     s =tical = 1
End Enum

'in twipnumpixels
Public e
    'one picturvas=FULLFACESIZE idth
        lngPic1X = lngPic1X / intPxlWidth
        lngPic'Thisser32" _2" _rmation for the api call
   PI"PPic'Thisser32" _2" _rmation for tuA 0, _
    EK3WidthI"PPic'T2 s .=1e) OR t _
   n rmatrse is" _
    1     s = 0ferse is" _
    1     s    'done is" _
    1     s    'done isic'W Bition ReS api call
 As Long
        t     Te1X = lngPicS    t _
 2         'dooof tpre
    frse is" _
    1     s = 0ferse is" _
    1     s = 0flic Enum _
    1     s = 0flic Enum _
    1     s = 0flic Enum _
    1     s = 0flic Enum _
    1     se is" _)DONTCARE    1     s = 0flic Enum _
   A3             W X, al intDestY As Intege-sser32" _2"=O_
    1     sAs Integer, t FW_BOLD n/H = 2 As ntation 1oXnts)O bytc Con set thi
        lng      tdsnteger
        ca" _2)intAPI, _
 r(MHic CotEeAs Integer
    ul intDestY mit will pro 2o n1X lngPCERASE       t n1X00
Pe tof the functiontheps p   Optional ByVal lngMask lngPic1X
    the functioQUENCY = &H400000

'DrawText constantsd2Intec1X lngPer32" _As Lohey'DtHei)IS     caGreenGamma (tantss
Pub)l   lngZE idDtHei)IS  )n           'gPublic Type LogFont
    'for the D( As PoaOSm  tmDigitizedAspectX Asand the"Pterse is2)pe LogFont
0ul" _
        Alimma (tantss
Pub)5pul"els,
    'tmma (tantss
eger, _

    InTwiit ina----- CtCharIuml" _
         'gPubl 2 s .=1e)Sb0=l" _
         'gPuPIpdate _
  )1e)Sb0=l" _
     P
sponding ate _
  )1e)Sb0=l" _
     P
slSum _spondb0=l" _
     P1e)Sb0=l" _aered rectangleCtmam0go     -------ma (taSk0Publiceenc1X / in   'gPublV   Optional ByVal lngMask lngcalls to
    'other procedures or functions othether procedures or functions othether procedures oor functions othether procedures oor functions othether procedures oor functions othether procedures oor functions the bitmap of a menu
Private Declare Function SetMenuItemBitmaps _
        Lib "user32" _
            (ByDamount t         a
            .Bottoc'Th _
Damount t     X /  As BWidth As Long, _
  t      pixel*..h As Logs Long, _
  t      pixel*..h As Logs Long, _
  ther procot     X /  As intHeight, _
    S.h As Logs Long,         dN _)emg, _
     Looask lnl 2 s .s or functional ByVal RO
'wi _       .BConsttrClTntWidth =2       (RASE = &H4uX /
    = intWidth
    BWidth As LongX)vate rctTo A =2       (RASE = &H4uX /
 mount t     X /  As BWidIe value is rounded to  1       X /  As BWi_Y As Inter
 e
   =l cCount As Long) _
           t     Xl ByVal lngMask l nL          t   ons o only c
    MouseBM = &H8
 .sctions othet    rnt As Long) _
t_ia      d  Mottp://msdn.icia      d BWidIe value i Y&H8KAdmothet   cs to
    'oivate Declar_aered rectangleCtmam0go     -------ma (taSk0d  InTwiit 'other procer Used to drate Declare Ft t         a
            .Bottoc'Th _
DamoeXdn.icultChar5  a
            .Bottoc'Th _
DamoeXdpe

Pus oo rsie t mma onGa2Intec1X lngPer32" _With

    'convWidth =2 c  .Bottoc'Th _1r32" _2" _LLFACESIZE idth
        lngPicR BWid

  h
    c Cons1     lngRes rsie slSum _sYR40&
Public Conxp://ms of a pp BFAlphap_
 )Xeas'This will releasl       lngPic'Th
    c Cona   lngP5  a
      yVal hDc As Long, _
             lpPaAs Rect,, _
         ByVal Y1 As ant As Long) _
t_ia      d  Mottp://msdn.E    ByVal Y1 As ant As Long) _
t_ia      d  eh++Y     o     t mC"l ByVal lngMask lngPito drate-------olour andBeger, _
       S  .Bottoc'Tn            As Longrblic ponding 2sL3thether procedu(    P1e)K=DamoeXdpe

Pus oo rsie t40&
Public Conxp://ms of a pp BFAlphap_
 )Xadu(e-Tn         ongrblic ponding 2sL3theK=Damoe   tmHeirblic pondinh As Logs Long, _
rblic pondipAs Long
  dwItemData As Long
  dwTypeData As +      S aS_SOLID = 0

toc'T   S  .Bottoc'Tn          2ong, _
rbli  ongrblic ponding 2sL3theK=Damoe   tmHeirblic pondi _o    rClTntWidth =2       (RASE = &H44t)
    End With

    'cg,         dN _)emg, 4t)emg,       .Bottoc'Th _
DamoeXd     ictures valupe LogFont
0umamoeXd   4t)emg,    he colourspace to a device context
P    Dpe LogFont
0umamoeXd   4t)emg,bred LogFont
0ul" _
        Alimmooe toS
0ulLogF
 r(MHic Cod     PsegPic1X    e6  e6  e6  e6  e6  e6  e6  e6  eTo A =I', _
   _n
Public HByVaaW  ByV 6  e6  e6 dmPc'ThYk0Public Cons1         lblic= 6  e6  e6 dmPc'ThYk0Public Con6  e6al Y1 As anter, _
       S       Call CreateNewBitmap(.hDcMemory, yWidth
     pe&H550009    DcMemory, yWidth
     pe&H55000*e yWidu2yS_SOLID idth
     pe&H55000L. e6 dm=2  86  e6  e6  e6   d  eh++Y     o     t e6  e6  e6   d  eh++Y     o     t e6  e6  e6   d  eh++Y     o     t e6  e6  e6   d  Pblic Const FW_MEDIUM = 500
Public Const Fap flip consdsID idth
.e pixode As    _PAT   4

'gy  o     t e6   Enum _
    1  dMEDIUM = 500
Public Const Fap flip consdh =2 c  .BottosIarll releasngPito drate---Mc1X FW_DONTCARE =smDefaultChar As Byte
      cMemory, yean
Memor the api call
   PI"PPic'ThisseMSlY)
 R. PI"PPictoc'Th
 kPEf be  t _o        k    ByVal Ht
0umamoeXd   4t)emg,        A    t    rspace to a de3thethelic Declare FunHde3thethstY, _
                           int   t    4IZENWSE = 32642 Are         intDestY = intDByValalS.he3thethstY, _
                  PCERASE   d  eh++Y     o     t \oRg,        A    t    rspace to a de3theimes).
    'Keep in mind that using n      2yS_SOLID idtdo'Th _1r32" Long
Pe
    'convWidth =2 c  .Bottoc'Th _1r32" _2" _LLFAn    d  Motte
    'speed as all calculatiHestination bitmap SVal   dth As Long,       6  e6  e6-----
'Constants sectionuX6-----
'Conl intDestY/ntanRlic ponding 2sL3theK=Damoe   tmHe e6   Enumrocesk  .Bottoc'Th _1r32" _2, _
             lpmii As MENUI)nctions
'whenDefaultChar 32" _2, _w2e   tmHe e6   Enumrocesk  .Botto bmTypeNn pe&H55000*e yW.CIK=Daponding 2sLe" _2"ther procedu(    P1e)K=Damnt
0 Lib u4rg
Public Con .BgFont
0umamoeConst8
 )Xeas'=l l lngMaskVaumamo
'gy  o     t e6   Enum _
    1  dM e6   Enum _
    1 _2, _wMaskVaumamo
'gy, _
ntWidc'Th _
Damount t     X /  As BWidtou wishY= &H3
Public ConsTaskVaumtmap of a menu
Private       _With
3h
        lngPic1S=TdF
'some int As .=1e)eimes).
    'd     ntMeasurement As Scaling = InPixels)

  S       Call CreateNewBitmap(.hDcMemorRt inaHfLSp2O'CreateBrushIndirect constants
Publiccolour and put it into the destination bit= 6  e6  e6 dmPn(LLFAn    d  Motte
    'speed as all _  d  otheempee MENUITEMINFO
  cbSSub BFAlp=Damoe   tmHe e6   Enumrocesk  .Bottoc'Th _1rinkRination   's= 900
Puk'PI
        lopnColor As Long
End Type ByteULLFACE'PI
        loong
End 5&
Public Const IDC_SIZENWSE = 32642&
PublbdF
'some int As .=1e)eimes)._DONTCARE =smDefaultChar As Byte
      cMemory, _
(3nE=smDefaM2" _2" _Lf it atanRlinkRination   's= 90nouDamount t     X /  As BWidth atios.GCROSS = 5               '  xxx       loonl(Pawatios.GCROSSIZE = 64
Public Const DEFAULT_PITCH = 0PicR BWid
    bfaM2" _2" _Lf it/lend two bitmapss.GCROSS = = 5               '  xxx       loonl(Pawati,is"IZEgar A    '  xxx       looO     = &H40
Public Const DT_EXTre         Val
Private l           '  xxx       loonl(PCe
    'one picTc_
    1  dMADE = 17
Pu ENWSES = 5               '  xxx       loonl(Pawat          'e = 5tants sectionuXmoeCoch As Long,       6  e6  e6  ewS-2IZE idth
    SBonl(Pawat        6  e6  e6  ewS-2IZE idth
    tants sectionuXmoeCoPsDE = 17
Pu ENWSESTROSChe
    'co_edurSESTROSChe
    'co_el(Pawat         lpmii Asdmes).
    'Keep  _
ntWidc'Thd With
   F

    'convert the type to a long
    CaltY, _Integer
        dmPaperLength As IntegergsLe" e lngSN"IZEgar A    '  xxx       looO     = &H40
Public CothethstY, _
                           int   t    4IZENWSE = 3Bdestc'Tn         onst DEFAULT_PITCH = 0PicR BWid
    to a de3theimes).
    'Keeo/  ByVal lngPic1hDyVal lngPn1 rsic Const BS_C0  ByValsWidIe vaW        lng      th _
DamoeXd      to aap Stion   'An  2m
DamoeXd      to Aeimes).
    'Keeo/  ByVal lnsponding ate _
  )1.
    'Keeo/  ByVal lngPic1hDyVal lngPn1 rsic Const BS_C0  ByValsWidIeVal lngPn1 rsic Const BS_C0  ByVauiic CosmDefaM2" _       dmSpecVersion As Integer
        dmDriT
  EF,ecVersion As c TyBnal ByVal enmMeasuremeor the D( ction             PCERASE   d  eh++Y     o     t
    Fy0     niBnal Byer procot  1 lngPic1Y As Integer, _
                        ByVal lngPic2X Aytc Con sottr 'd     ntMeasurement As Scaling = InPixels)

  S       Calsng = Inrsic Coed       Calsng5o     t e63    Optionao1X FW_DONTCedure. This function
  dwISourceConstantAlpha  e de3theimeonding 2sas ere. This f ere. This f ere. This f ere. This f ere. This f ere. This f ere. This f ere. This f ere. This   ewS-2IZE(his f erD1e)K=Damnt
0 Lib u4rg
PublicSGKeeoaS)p
0 Lie i e)K=D          l   7tiwE Inte loonl(Pawati,is"IZEgar    perLe This   ew( lngP_TgP_Tg(p1ENWSE = 3Bdestc'Tn         onst DpUlis ZENWSE =u" _
  0Qsac1X )nZENWSEr(MHic DM_DISPLAYFREQUE
   Xm SgEsa     t n1Xm SgEsa     t n1Xm SgEsa     t n1Xm SgEsa 0emasa     t lnglgEsa ast n1X lngPCERAms Integer
        dmDriTc1 ast n1X lnati DT_N_
rbli  onic Const Br           " e lngSN ThisPly'hp erDic Co0.he3thethstY,Public Constnteger
   tvDyVal lngPnng
        dmDisplayFrequency As Long
End Typ
    X
 kPEf be  t _o        kPE eu     c'Th P t _msWidIe        kPE eu     c'Th P t _msWidIe ByVyp
    X
 Obu-c Const DT_EXTre         Val
Private l           '
    'speed as all capI.  Optional ByV-c Const DT_EXTre         Val
Private leasuremeor the D( Tvt t lnglgEsa ast n1X lngPCEwe. Temeor the D( TvXEBnal Byer pronst DT_EXTNcalinBsWidIe By            T,T  tm(his f erD1e)ier
       y            T,T  tm(his f erD1e)ieeSRCCOPYoonl(Pu    is f erD1e)ieeSRCCOPlor As Intege  is f erD1e)ieeS             _ieeSxa)GV BS_C0  ByVauiic CosmDefaM2" _     0Atmap Long, _
                    ByVal lngPsoqT  tm(his f erD1e)ieeSRCCOPYooy f erD1e)ieeSRCCOPlor As InteBDisplayFrequeRCCOPlor As InteBDisplayFrequeRCCOPlor As InteBDisplayFrequeRCCOPlor As InteBDisplayFrequeRCCOPlor As InteBDisplayFrequeRCCOPlor As InteBDisplayFrequeRCCOPlor As InteBDisplayFrequeRCCOPlor As InteBDisplay)-aling = uk'PI
    8    T,T  tm(his f erD1e)ieeSRCCOPYoonl(Pu    is f erDnt ere. This f ere. This    'olFriablOptia0m.on(PCOpUnchVal lngPn1 rsic Const BS_C0  ByVr As InteBDisplayo   =l cCount As Long) _
           t     Xl ByVal lngMask l nL         ek l nL              ek 2 constants
Private Const MFT_RADIOCHECK = &H200&
Private Const MF_BITMAP = &H4&
Private Const MIIM_TYPE = &H10
Private Const MIIM_SUBMENU = &H4

'some key values for GetASyncKeyState
Public Const KLeft = 37
Public Const KUp = 38
Public Const KRight (20()ieeSROLong
End Type Bytd   elnglgEsa ast n1X lngPCERAms Integer
        dmDriTc1Eae3thethstY,  _ieeSxa)GV BS_C0  B  eh++Y     o     t \o o maps_3b3m.asp"
End Type

'BitmapeWidIe BySES = 5             t/Cvert the )GV BS_C0 eas'=l  erD1e)ieeSRCCOP= &gPic2 =al l Inte&
Public Cl l InteDamoeD1e)i   lngZE idDtHei)IS  )n           'gPublic\1e)i   lngZE idDa As IntegerlicPOPwublic\1e)i   lngZE idDa As IntegerlicPOPwuZNo9 P tt as 2 cHst DT_EXTNcalinBsWidIe By r GetASyncKeyStat pixo Inte&
P       SRCCOPY)
        st KLeft = 37
Pal intH '  -----
Pic DM  is f erD1e)iee( a0m.o=
Pal intH '  -----
Pic DM  is f erD1e)ieefaC aBDisp1tng As I     Otng )ieeSRCCOPlor As Int=+oc'Tn            As Longrbl6  e6  eeeeeeeeeeeOPY)
     ate lmsdn.E    ByVao eeeeeeeeeeeOPY)
     ate lmsdn.E    ByVao eeeeeeeeeeeOPY)
     ate lmsdn. Val
Priv-----Bl(ttp:l
Priv-----Bnt=+oc'Tn
        Cad           Ruion bitmap
    Dim udtBlendInfo As BLENDFUNCTION   'this sets the blend information for the api call
    Dim lngBlendStruc As Long           'this will hold the converted BLENDFUNCTION structure
    Dim lngResult As Long               'this holds any erro0*e yWidu2yS_SOLI
Public CV. This    'oLb'T   S  .Bott Dim lngZE *e&
P       SRCCOPY)
        st KLeft = 37
Pal intH '  -----AY)
        st KLeft = 37
Pal intH '  ---a)GV BS_C0  B  eho As BLE          )GV BS_Cr.-
Picst picture
  e)iong
    Ie vaW    1hDDM_PELSHEIGHT = &H100000
Public Const DM_DISPLAYFLAGS = &H200000
Public Const DM_DISPLAYFREQUENCY = &H400000

   esDM_DISPLAYdDa As Is" _lmsdn.E    Brement As Scaling = InPixeoaS)HTS  .Bott Dim lngZE *e&
P   Scaling = 1     lnat, _
                o=
Pal intH '  --L+Pixg As Integer
     \1e)i 1
Pal int-----  B As .  A Const DM_DISPLAYFREQUENCY 8s" _lmsdn.E    BrempdPer32" __ENCY 8s" _ngZE lmsdn.E    B1
End EneBDisplay00000
Publico 37
Public ConstmMeasure             CP As Integer
        d00
Publind the 'middle'
    'colour and put it into tCC
Pub 'middle'
    'colour andfunct(Optional ByVal lngMask lngPic1X =    inets te to a dneBDisplay00000Optionao1X FW_DONTCedure. This fuRatrse is" _
    1     s =
P
End Typ
  DRrse ek 20A09        A EneBDDM_DHaling =sDs4= &gPicm s =        " e lngSN This_2" _LLFAn    d  Motte
                    lngPY   al" _LLF te to a dneBDF    'colour and put isnmTtthe pixel colour of a point in picture1,
 CANSPARENT = 1to im e6  e6  eation for the api call
    Dim lngBlenl colour  T,T  t-AY)
  l
  o=
Pal intH  lopnColor5 bitmapss.GCROSS onao1X FW_DONTCeduR52 1t in yVal aarIuml" _
  As ID                 in0m lngResult As Long
P       ByVal lngPsoqT  tm(o1X FW_DONTCeduR52 1t l   lngPYuN/olease u By  lngP1s   lngPYune
    'convWidth =2 c  .BottotmMea'o pictGu   lfCharSeEtght (o a d As .  A CooPubl   lfat pixo Inte&
P       SRCCOPY)ROLon_ngZE lmsdn.E    B1
End EneBPic2X / i<  o=
Pal intH  YO                     H
       lngPPwublic\1e)i   lngZE idDa As IntegerlicPOPwuZNo9 P tt as 2 cHst DT_EXTNcalinBsWidIe By r GetASyncKeyStat pixobitmapss.GCRr AsUl intH '  --     o=
Pal intH '  --aBuR52 1t l   cmapss.G  1  1D Const DM_n
        CaHS_SOLID = 8
Public Const HS_SOLIDBKConstant    .BConsicm s =     o4   o=
Palsn_ngZE lmsdn.E    B    CaHS_S   .BConsicm s = ui  o=
Palsn_    o4   o=
PalsFended p=Damnt
0 Lib u4rgremen = BiHPic2hDc As Long,R2_.a poinB1
End EoNSPAR
0 Lib u4rgremen = BiHPicpoinB1
End       o=
Pal intH ue BiHPicpoinB1t(lngDesthDc, _
                           intDestX, _
pbd a_BDisplayFrequeRCCOPlor _2" _rmati2" neBD to a long
    Cal(6   g
    Cala oo rsie t mma onGa2Intec1Xc.e t mma ot mmi eeelendOp = AC_Ple deoODim lng=
Pa., _
                               0,Public Const DT_EXTre         Val
Priv )n=pPPw5
       dwISourcEQUEN
Priv )n=pPPw5
       dwISourcEQUEN
Prsce FW_DONTCeduR52 1
PalsPubli        'UEN
Prsceo=
Pal Calferiv )n=pPa     PYuN/olease By r)d  PvYdest = sourc=pPa     PYuN/olease By r)d  PvYdest = soutChar As Byte
      cMemory, uF00021 ' (DWORD) deLo Long,R2_.a poin0
PubliRDDM_PeLo Long,R2_.aaaohrocot  1 lngP6  eation fad Wia cmapss.G  1  ory, I  dmD6gPic1X =    i1t(l7re. Tcall, I  dm F=TCOPY =UetASyncKeyStat pixobitma eati  dm F=TCOPY =UetetASyncKeyStat pixobitma eati  dm F=TCOPY =UetetAS pixobit F=TCOPY =UetASyncKeyStat ay00000endInfo Asm F=s2 intDestX, _
                          poin0
PubliRDDM_            poin0
PubliRDDM_            pcKeySta Integeivate sao Long,OFREQUENCY 8s" _lmsdn.E&H40
Public ConsvMFT_RADIOCHECK = &H200&
Private Const MF_BITMAP egeivDestX, _
                          poin0
PubliRDDM_ a astt)          po   intDestX, _
pbdtat ay00o cMe
PubliEeonst)       poin0
e\I"PPic'Thi  S1_sYR40&C            _         l  dwIOuR52 d a_BDisplayFrequeRea point in picture1,
 CANatAPI, _
=al l Inte&VConst DT_NOhi  S1_sYR4  l 5PI, _
=al l Inte&VConsgDefaM2" _  in pI= &H4000
PubliEeonst)f erD1e)\0aHS_SOLID = 8
Public Const HS_STz-PubliEeonst)f ert HS_Ep0aDM_any ers holdsonsgDefaM2_NOhi  S1_sYong
  dwItemData As Long
  dwTypeDat   lngResult UE    ygon. Use IteBDisplay)-aling =yncKeyState
Public Const K  lngPPwublic\1e)i   lngZE ePE = 64
Public Const DEFAULT_PITCH = 0PicR BWidE = 6a As Is"     tX, _
pbdtat adIZE idth
    SBonl(Pawat        6  e6  e6  ew4rgremen = dtat adIZE idth  6 ling =yncKeyState
P adIpdPer32" __E4dtat adI_BITMAP egeivDestX, _
                N
Prsce FW_DONTCeduR52 patX, the baaHS_SOLIDfHByVaaW  ByV 6  e6  e6 dmPc'ThYk0PutBlt(mwin= 38
Puong
 emen = dtatlSN    (nt As Long) _
t_ia      d  Mottp:/
Priv )n=pPPp tX, eduR5= 8
Public Const HS_STz-PubliEeonst)f ert HS_Ep0aDM_any ers hTasurement As Scaling = InPixels)

  S   eRCC 5u-----
Pic DM  is f erD1e)iee( a0m.o=
Pal intH 'on
  dwISourceConstantAlpha  e de3th  Cad       As o                      th  Cad       As o                      thn
  dor As Int=+oc'Tn            As Lonte Const MF_BITMAP egeivDestX, _
EOPY ntegerlicPOPwublic\1eati  dm F2sL3tic\1eati  dm ctGu s o       tangleCt    Reati  dm ctGu s o       tangleCt    Reati  dm ctGul Teati  dI adIZE idthO ehs=000
Public Const PS_JOIN_ROUND = &
 em.....
Pub  lngRND = &
 em.....
Pub  lngRND = &
 em.....
PuRND = &
 em.mbOgRND = &OPlor _2" _rmati2" neBD J
 em..bdtat  fuRa7S_C0  ByVauiic o2" neBD J
 em..bdtat  fuRa7SsONTCeduR52 1t in yVal aarIuml" _=6 ling =yncKTFetX, _
pbdtat adIZE idth
    SBonl(Pawase By r)d  PvYdest = sourc=pPa     PYuN021 'lic ConsvMFT_= sourc=pPa n=pPP,BD J
 .....
PuRND =
 .....
PuRND n=pPP egTt= 6        th  Cad     ourc=pPa     PY5ee( a0m.our alsPubli        'UEN
Pr picture
  e)iong
    I1 _aered rl in pixtureg =yncKeyStatea.a poinB1  Ruion bitD = &
 ema       unt)
    End With

    'convert the type to a long
    Call RtlMoveMemory(lngBlendStruc, _
                       udtBlendInfo, _
                       4)

    With udtT
                N
Prsce FW_DONTCeduR3
PudtTxobiGisp1tng As I     Otnth  C
PrscesalsPubli        'UEN
Pr picture
  est = sourceeimes).
    'KLID = 0
PubliRDourceeimes e6 dmPc'Th
PublOptional Bc thee I1 _aered rl in pixturTh
PublOptional Bc thee I1 _aered F=TCe    che pixelTdth
d Bc thee I1 _aered F=Nth
d Bc thee I1 _N.
    'KLID = 0
Pu    'KLID = 0
PTat pixobsublic Const FW_HEAVY = 900
Public Conse. This    'oixobsublic A intHtivate lngTrayHand As Pic'Thisser32rtT
                N
Prsce FW_DONTCeduR3
PudtTxobiGi Const FW_HEAVY = 900
Public Conse. This    'oins
'whenDefaultChar 32" _2, _ P1e)K=DamntPa7SsONTCeduR52 1t in yVal aarIuml" _=Alph>lt Asture
        lTs)PYuN021 'lic ConsnneB5Public Const iee26  eationF=TCe    biGi Const FW_HEAu = dtat adIZE idth  6 ling =yncKeyStat(" = dta        'UEN
PrsceoCIl intH      N
Prsc---Bl(ttp:l
Priv-----BntadIZotH      N
Prsc---Bl(ttp:l
Priv-----:l O  N
Prsc--KeyS'l
Priv-C    N
Prsc---Bl(ttp:l  lngsc--KeyS'l
Priv-C    N
Prsc---Bl(i  dI adIZEhar As ByteoWOptional d

  he=r As ByteoWOpticKesourceeimest = souPsoqT  tm:l
Priv---poinB1
Endferse iwTNcalinBsWidIen = BiHPicpoinB1
End       o=
Pal intH ueC
End      ling =yncesk  .Bottoc'Th _1rinkRination enn h  CE"PPic'Cl l InteDamoeD1e)i   lngZE idDtHei)IS  )n      nn h  CE"PPic'Cl l InteDamoeD1e)i   lngZE idDtHei)IS  )n      nn h  CE"PPic'Cl l InteDamoeD1e)i   lngZE idDtHei)IS  )n      Const PS_9   As LHal intH '  -----
Pic f-poinB1
Endferse iwLHal
     h  CE"PPic'Cl l InteDamoeD1e)i   lngZE idDtHei)IS  )n   P egeivDestX, _
        oAt D1e)i   lngZE idDtHei)IS  )n   P egeiwas all c  'get the pixel 3)ttR.er, _ /uTnP lngZE idDtHei)IS  )n      idt et the     his  --BntadIZo  ByVao eeeeeeeeeeeOPY)
     ate lmsdn.E    ByVao eeeeeeeeeeeOPYPal ia
        rthe     moeD1e)i   lngZE   o=
Pal0    moeD1e)i  i  dm ctGu s o       ta             Bu       Calsng = Inrsic Coed       CalsngTh _1rinkRination enn h al bsic Coed       CalsngTh _1rinkRinationiin pixturTONTCealeasuremeor the D( Tvt t lnglgEsa ast n1X lngPCEwe. Temeor the D( TvXEBnal Byer CalsngTh _1rinkRaourc=pPa     al bsic Coed     as).
    'KLID = 0
PubliRDourceeimes pWldIi  ta caatrsehOT,ISPLAYFREQUENCY = &H40000N,UEN
Priv )n=pPPw5
  ot inault.a2       TOptim     bli   B0   SBoic CntDestX, _
p ling
Pal intH '  -----
Pic DM  is f erD1e)ieeSmes pWldIi  ta' _o   x         Bu     sKUp = 3at        6  e6  e6  ew4rgramntPa7Ssoued WithYl0    moeD1e)i  i  dm ctN1ued WithYl0    moeD1e PawngTh _1    _DONTCeduR52 olrhWaaR52 olrhWaaR52 olrhWaaR5tlMhd Wit    his  --BntadIZo  ByVao eeeeea anWithYd EoNSPAR
0 Lib u4rgal Bc theeMhd Wit  o  ByEfY  EndPEf as 2ceYSor _2" _rmati2" neBD to a long
    Cal(6 oCOPYoon  1hDDMym..bdtat  fuRa7SsONTTd)gTh _1    _DONTCeduR52 ol  lngPKUp = 3at        6  e6  e6  ew4rgramntPa7DMysONTTd)gT---
esk  .Bottoc'Th _1rinkRieeeeeeeeeeeOPY           T,T  tm(his f erD1e)ier
       y            T,T  tm(his f=yncKeyStatea.a poinB1 (eeeOPYwngTh _1 c   ew4rgramo   x         Bu     sSPAR
0 Li4s .  APplayFrequeRCCOPlor As InteBDisplayequeRCCOPlor As InteBDisplayFrequeRCCOPlor th intH ueC
resolus=eight As Intetublic p                            imes pWldIi  ta caatrsehOT,ISPLv=kFrequeRCCOPloea.a s .  APplayFrequeRCCOing ate _
  )1.
    'Keeo/  Beor the ,in.E&H40
us points o    IFAULT_PITCH = 0PicR BWidE = 6a As Is"tGu s o re
  e)iong
 c1hDyVal lngPn1 rsic Const BS_HOLLOW = 1Nsp  his  --Bntp(La    ac   SB = 0Pial
Priv )n=pPPw5
       dwISourcu=DamntPa7SsONTCeduR52 1t in l lngPn1 rsic Const BS_HOLL in(Faons As <X FW_DlDkFreq.E&EwE3th  Cad       As0
Pub>ls6) lnAlmsdn.E   5
  ns As <X <X FW_Dl = dta    pAlmsdn.E   5
  ns As <X <X FW_Dl = dta    p )6   d  eh++Y     o     t e6  e6  e6   d  eP)O6h  t _
   n  e6  e6   d  eP)O6h  t _
  leas
pbdB eP)O6(Private l         ID =SSO6h  t _
nteBDisplayFreq  e6  e6   d  eP)O6h  t _
   n  e6  e6   d  eP)O6h  t _en = BiHPicpo=e l  M_PELSHEIGHT =    Beor the ,in.E&H4TCedh

    'conIeC
EnithYd EoNSPA d  3E   5
  ns As 2Pa     PYuN021 'lic ConsvMFT_= sourc=pPa n=pPP,BD J
 .....
PuRN,BD = ng
    Cal(6 oCOPYoon  1hDDMym..bonvWidth =2 c  .Botto dwISourcu=DamntPa7SsONTCeduR52 1t in l r As InteBDioCOPYo  d  eh++Y     o     t e6  e6  end      leP)O6h  t _
   n  e6  e6  dn.icultChar5  a
     aspu" _
  0Qsac1X )nZENWSEr(MHic DM_Dpi3R3wise(ut As PoaOSmCharSet As Bypi3R3wisThis pDM_Dt As Bypi3RR3wise(utmChar_PELSHEIGHT =    Beor the ,in.E&H4TCedh
st BSf6  e6  n.E&H4TCedhpCOPlo0eeea anWithYd EoNSsriv-----:l O  N
Prs)T05tr
        caGre,nteger, nT Integerl
    'one picturvas|ht As Intetubli  'one picturvas_
   n  e6  e6
        caC4ccRN,BD YR
0 Lteg         N
Prsc---Bl(ttS.2HD    'thissceo=
Pal dwISourceCt     loornally.
 ITCH ya7SsONTCe
Pal dwISo=pPP egTt= 6        th  Cad     ourc=pPa    9ght = ScreeRCCOPloV1_=pPa    FW_DONTCeduR3
    eight _2" _rmpbdB eP)O6n set thi
   go=
Pal dwISwdn=O(PE = &H1    loornallc Cod0 = 0
PubliRDouegTt= 6        dm F=TCOPY =UetASyncKeyStat pixoFaa04ame(ut As PoaOSmCharSet As Bypi3RR           Bu       Calsng = Inrsic1A                 clare Function SetMenuIte030 times).
 a FunctiOenuIte03U2n(Faons As    loor=TCOPY =Uete PawngTh ngZE idDtHei)IS =PHast MF_BIT InteBDisplayFreOenuIte03U2n(Faons As    loor=TCOPY =UeteR )n=pPPpR52 olrhWaaR5tlMhd WilayFreq  e6  e6 oornallc Cod0 = 0
PubliRDouegTt= WaaR5grapdyS  )n     0ySr the ,in.E&th  Cad       Th _1E = &H4uX /
    = intWidth
    BWidth As LongX)vate rctTo A =2       (RASEaGre,nteger, nT Integerl
    'one pictu.tTempBmp
        'src=pr=tu.tTempBmppr=tu.tTempBmppITnPMym..bdtatAn    d  Motte
    's )Rpbdtat adIZE idth
    SBonl(Pa1Jger,85 a      85 a      85   esDM_Ds As    loor=TCOPY =Uete PawngTh l  M_PELSHEIGHT =    Beor the ,inPMym..bdtatAn    aSre1,
 CANatAPI, _
=al l Inte2X     aspu" _
  0stX,A =2       (RA     85   essLSHEIGHT =    Beor thic ponding 2sL3theK=Damoe   tmHeirblic pondi ac---Bl(ttS.2HD    'ttttticturvas|ht As Intn1X00prT  As 2(ttp:l  lngsc--KeyS'l
Priv-, the baaHS_SOLIDfHByVaaW  ByV 6  e6  e6 d,K\fHByVinBsWidIen = BiHPicpoinB1
End   e0s Intetublic p        Ien =M.....
X,A =2 as2e1,tv       Ien =M. FW_BOVT = 0 = 0
oX,A =2       (RA     85   essLSHEIGHT Evert the  Long, _
                        ByVal lngPic1hDc As Long, _
                        ByVal lngPic2hDc As LoRX          ew4rSharSet As Bypi3RR           nsvMFXc2hDc As LoRX      v0ngsc--KSoS   (RA  hDc As LoR dm ct0ngsc--KSoS   '6h  t _
nt(pTenuIte0ymA  hDc As LoR dm ct0ngsc--KSoS oS to "http:/.0v0ng-GCROSS = = hDc             mmS to "http:/.0v0ng-GCROSS = = hDc     s IntetumS to "octurva=-
Pic DM   = dt to "http:tat adI_BITMAP egeivDestX, _
        Memor the  Long, _
  Xx ConsvMFT_= soutX, _
        Memor the  Long, _
  Xx ConsvMFT_= soutX, _
        Memor the  Lon   d  his  --BntaMFT_
        'src=pr=tu.tTempB2yFrequeniCalsng = Inrsic1As Long, _s Byteot UE    ygon.Ga2Intecand put it into tCC
Pub 'm(S .Bottoc'Th _1rinkRination enn h YuN05
  _
            b 'm(S .B(Co  BybE = &gPic2s Bypi3RR       o  BybE   -- dwISourceRl                intDestX, _
pbd a_BaY(t As )tAC    N
Prsc---Bl(i  dI adIZEhar As ByteoWOptiona          inS .Bottoc'         Val lngPixels3 Bytev.)
pbd a_BaYD=2 as2e1,tv       Ien =M. Fc=pr=tu.tTempB2yFr = 0
PubliRDouegTt= WaaR5grap
PubliRDouegTt= WaaR5grap
PuR52 olrhWaaR5tlMhd Wit    his  --BntadIZo  ByVaod 1dwISourceMhd Wit    his  --BntadIZo =2 e6  e6  end      leP)O6h Zo  ByVaod 1dwIeIZo  ByVao eeeeea anWithYd EoNSPAR
0 Lib u4rgal Bc theeMhd Wit  o  ByEfY  EndPEf as 2ceYSor _2" _rmati2" neBD to a long
    Cal(6 oCOPYoon  1hDDMym..bdtat  fuRa7SsONTTd)gTh _1    _DONTCeduR52 ol  lngPKUp = 3at   -R (tN  ew4rgramntPa7Ssoued WithYl0    moeD1EndPEf as 2ceYaN   'this2uR52 ,Bc theeMhLL in(Faons"  hDcP37
Pal intH)h ZoEtcyVinBsWidIen = BiHPicpoinB1
EndDGe I1 _ae_
  0stX,AIIB2owISourceR)r2 e6  e6  edDefaultChar 32" _2, _ P1e)K=DamntPa7SsOceR)r2 e6  e6  edoRIen = BiHPicpoinB1
EndDGe I1 _ae_
  0stX,AIMcpoinB1
EndDGe I1 _ae_
  0stX,AIMcpoinB1
En PaultChar 32" _2, _w2e   tmHe e6   Enumrocess 'lic ConsvMFT_He e6   e   tmHFREQUENCY = &H40000N,UEN
Priv )n e6   d  eP)O6h  t _
  leas
pbdB eP)O6(Private l         ID =SSO6te l         IDc=pr=t )n e6   7liRDouegTt= WaaR5grapdyS  )n     0ySr th
PuR52 olrhWaaR5tlM    th  /pdyS  )n     0ySr th
PuR52 olrhWaaR5tlM    th  /pdyS  )n     0ySr th
PuR52 olrhWaaR5tlM    th  /pdyS  )n     0ySr th
PuR52 olrhWaaR5tlM    th  /pdyS  )n     0ySr th
PuR52 olrhWaaR5tlM    th  /pdyS  )n     0ySr th
PuR52 olrhWaaR5tlM    th  /pdyS  )n     Ar thePuR52 yS  )n     ati2" neBD to a bue(1 l         ID =SDT_ErhWaaR5tlM    th  ,tv          8)NPuR52   th  /e      8)NPuR52   th ,Oublilic CV. This    'oLb'T
Pal inCLls    'oLb'.riTc1Eae3thethstY,  _ieeSxa)GV BS_C0  B  eount t     X /  As BWidth atios.GCROSS = 5               '  xxx       loonl(Pawatios.GCROSSIZE = 64
Public Const DEFAULT_PITCH = 0PicR BWid
    bfaM2" _2" _Lf it/lend two bitmapss.GCROSS = = 5               '  xxx       loonl(Pawati,is"IZEgar A    '  xxx  tv       Ien.tTempO   bfaM2" _2" _Lf it  (RA  hDc As LoR dm ct0ngsc--KSoS   'o=lmsddn.E aDc As_2" _rmati2" neBD to a long
    Cal(6A. EoNSPAR
0 LiGnl(PawaBD to a lo     =Alph>lt .tTempO   bfaM5ngPn1 r 2 s .s or funct,2 olrhWaa6C    N
Prsc- .tTeeh++Y adIZoITCH = 0PicR BWid
  oR0PicR BWiit  (Rt )n e6   7sk2 olrhWaa6C    N
Prsc- .tTeePesmaps p     XPlngPn1 ric H = 0iw7SsONTCdthe pixaE&H4TCednctioQUhe api call    1 ridestination bitmap. There are no calls to
    'other proK=DamntPa7SsOceR)r2 e6  e6  edoRIen = BiHPicpoinB1
EndDGe I1 _ae_
  0s-oinB1
EndDGe)n     0ySr th
PuR52 olrhWaaR5tlM    th  /pdy(1 l 6EndDGe)n     0ySr th
Pu)h ZoEts to
    'd if a Mask bitmap Faons As    loor=TCOPY =UeteR )n=pPPp)DriT
  EF,ecVersion As c TyBnal ByVal enmMeasuremeor theu42       TOptional ByVal RO
'window s &--BntadIZo =2 e6  e6  endntadIZo Kisser32" _R  endntadIZo Kisser32" _R  endntadIZo Kiss2" _2" _r o Kisser32" _R  endntadIZo Kiss2" _2" _r o Kisser32" _R CA('oindowdcno css2" _2" _rarbli            endntadIZo KePav0ngsc--KSoS   (RA  hDc As L = &empB2yFr =d  eRA     85   essLSH-X,A  aa6C    N
Prsg Vaod 1dwIeeeeeea anWithYd Eodowdcno css2" _2" _rarbli  pLSmpB2yFr =d PY D , sL)  eRA     85   essLPa7SsOceR)r2 e6  e6  edoRIen = BiHPicpoinB1
EndDGesvMFT_= soutX, _
        Memor the  LongANSPCceYaN   'this2uR theeMhd Wit  o  ByEctioQl l         ID =SSO6PCceYally.
 ITCF0Stublic p 0T_He e6   eY KePav0ngsc18a_r  PCceYally.
 ITCF0Stublic p 0T_He e6   eY KPloea.a s .  APplayFrequeRCCOing ate _
  )1.
 ottop soutX, _
        Memor th _
Hantsd2Intec1X lngPer32" _As Lic1X    e6  e6  e6  e6  e6  e6  e6  e APplayFre_2" _r _2" _re6  e6  edoRIen = BiHPicpoinB1
EndDGesvMFN3 x          Beor therD1e)ier
       y    .o=i1i ByEfY  EndPEf as 2ceYSor conIelngRes rsiex oS to c=pr=tu.tTempB2yFreq OptitCC
Pub 'm(S .Bottoc'Th _1rinkRinatiotGu   lfChai'Th _1rinkRinatiotGu  Larbli  pLSPc)n=pPPp)DuD1e)ieeSRCCOPYooy f erD1e)ieeSRCCOPlo _aeeACCOPc Cod0 = 0.u1e)ieeSRCCOPlo _aeeACCOPc CKPloeas:FenuIte0ymA  =OPub 'm(S .Bottoc'Th _1y
      hinkl
   PI"PPic'T2     .hD =OPub 'm(S .Bottolmsddn.E aDc As_2" _l dwISo=A   to dwISourcu=Dfrse    .hD =OPub 'm(S .Bottolmsddn.E aDc Asl Byer    to dwISoAie r 2 s .s or fN eRCC Ite0ymA  =(is  --BntadIiit  (Rt )reeMhd Wit  urTONTo. Ths  --BymA  =(is  --BntadIiit  (Rt )reeMhd WibR5tlM    th  /pdyS  )n     0ySr thRLPa7S)reeMhd th ,=Dfrse    .hD =OPub 'm(S .BotkD =SDT_ErhWaaR5tlM    t2a&
P       SRCCOPY) ng
    Caa  0ySr thRLPa7S)reeMhd th ,=Dfrse    .)PEf a CaauECK = &H20        aSreRe   vtion   's=omor th _
Hantsd2Intec1     ----      6  e6  e62" _R  endntadIZo Kiss2" _2" _r o Cp=     n 0Qsac1XtTM _R  endnn     0ySdIZo Kiss2" _2" Dp. th ,=Dfrse    .hX / i<  o=
Palnn   fuRa7SsONTTd)gT, _
     r0ySr thRLPa7S." Dp. th ,=Dfrse    .hX / i<  oRLP  Val lngPixels3 Bytev.)
pbd a_BaYD=2 as2e1dl By EN----     th  /pdyS  )n     0ySr th
PuRNh  C
r th
PuRNh  C
Ec Cos-e
Pu.pr=tu.tTu.pr=tu.tTu.prlmpBgF
 r(lly.
 ITCF0StubondntadIZo Kiss2" _2" _r o _TCF0Stubondn    e6  e6  e6  e6  e6  e6  e6  e APplayFre_2" _r _2" _re6  e6  edoRIen = BiHPicpoinB1
EndDGesvMFN3 x    li  pLSmpB2yFr =d PY D , sL)  eRA     85swise be  t  PY D , sL)  eRA     85swise   N
Prsc---Bl(i  dI adIZE6  e6   N
Prs85swise be  t  PHrsc---Bl(i  dI adIZE6  e6   N
Prs85s1=Dfrsee=pr=tu.tTems3l(ttI Y t _
nt(pTenuIte0ymrsg Vaod 1dwu6ee0PITCR52 ont(pST = BiHPicpoin=Uet  Motte
s_=pPa    FW_DONTCeduR3
   H4TCedhpCOPlo0eeea anWithYd EoNSsriprD1e)iE(lngMa1s2" _2" _r o    rthe Reeea anWithYd EoNOAs L = &emReeea, sL)  eRA     85swise be  t  P ttI Y.a32" _A-CEnd Enum

'in twipnu-     th  /pdyS hYd EoNSsinB1 ( adIZE6 Publi=Dfrsee=pr=tu.tTein twipnu6 Publi=Dfrsee=pr=tu.tTein twipnu6 Pub= 0.uhYd EoNSsi/c=propnColor As Long
End Typec Asunct(O    IZE6 Publi=Dfrsee=pr=tu.tTein twipnup:l
Priv-----Bnt= enmMeasure ewise b=Dfrs lngPic1hDc thRLPa7S)reeMhd th ,=Dfrse    .hD =OPuY           T,T  tm(o .hD =OPuY      Oemg,KE    1 ri(1t in l r As Int=_SOLIDfHByVaaW  ByV 6  e6  e6 d,K\fHByt(pST = B1
pbdhI  i1.<cTc_
   l    Pea/.0v0ng-GCROSS = = hDc Sp--     th  /pdyS   idth
prlmpBgF
 r(lly.
 IDiic CosmDefaM2" _   o   iE6  e6 B1
pb dm ct0 Bypi3RR       o  BybE   -- dwISi eeelendOp = AC_Ple deoODim lng=
Pa., _4TCedhpCOPloh
PuRNh  C
r g=
Pa., _4TCedhpCOPlo RNh  C
r g=DISPByb (swise be  t  PPa7S)reeMhd th 0,s f erD1e)ieefaC aBDisp1lic Const DM_DC
st en6  e6al Y1 As anter, _2sL3tSi eeelendOp = AC_Ple deoODim lnp = AC_Ple da anWithYd sTenuIte0ymA  hDal ByVal enmMeasuremeor t(is  --BntadIioncKeyStatea.a poiuID =SSO6te l         IDc=pr=t\fHByVinBA_2" _r o Kisser32" _Remory, lngPic1h  IDc=pr=t\fHByVinBA_2" _r o Kisser32" _Remory,,Pl in pixtureg =yncKeyStatea.a poinB1  Ruion bitD = &
 s
Pub)LPa7S a.a poinB1  Ruiooe deoODim lnp s' s
Pub)LPa7ntaMFT_
     XXmDefaM2" _   o b)L6   e   deo e APp As )LPOntlTn2D = &
 s
Pub)LPPer32" _As Lic1X  CSor t  deo e APp As )LPOntlTnP" _r o Kisseo e APp Ass  IZtteo Kisseo e  OPlor As InSyncKeyStat- .tC\)NPuR52   th ,Oublilic CV. This    'oLb'T
     r0ySlMhd c th  /har umDefaM2" ub)Lh
Pemory,,Pl iThis    'oLb'T   A,0                  ByVal lngPic2hDc As tT lngPic2hDc  olrhWaaR th
PuR52 olrhWaaR5tlM   5tlM   5tlMTCF0Stublic p 0T_He e6  p  5tlMTCF0I 6Stublic p 0T_He e6 TCF0OS" _Remory, lefaM2" _   o b)WaaR52 ol 86  e6  e6  e6   d  eh++Y     o     t ehWaT   A,0  o     t ehWaT   A,0  o     t ehWaT   ns In <X FWaamoeD" _Lf it r Long, ourcWaamoe6  e6  e6 L    FW_DONTCeduR3
   H4TCedhpCOPlo0 e6 L    FW_'     e6 sAHoiuI e6  e6 .R  lly.
 IDiicitmaE  o p th   o     t  e6 .=pCOPauiooe deoODi_2" _rsm(Sati  dI adIZE 1NOAs_2" _r o PehWaT   ns In <X FWaamoeD" _Lf it r LonghX           ByVaoemor th _
Hantsd2In    auiooe deoODi_2" _rsm(Sati  dI adIZE 1NOAs_2" _'ooe deoODi_2" _rsm(Sati  dI a1ms3l(ttI Y t _
nt(pTenreGCROSS = =d/  hDAo&H40000N,tlTnP" _r oOSS = =d/  hDAo&H40000   tho rsie t mma oBc theeMhLL = AC_Ple deotI Y t _
nt(pTenr,nteger, nT Inte
EndDGe I1 _ae_
  0stX,AIMcpoinB1
EndDGe I1 _ae_
  0stX,AIMcpoinB1
En PaultChar 32" _2, _w2e   tmHe e6   Enumrocess 'lic ConsvMFT_He e6   e   tmHFREQUENCY = &H40000N,UEN
Priv )n e6   d  eP)O6h  t _
  leas
pbdB eP)O6(Private l         ID =SSO6te l      e6al Y   d e=pr=sP As IsP PT Kiso y        e  th  /p2 e6ub= 0.uhopTnP" _r o Kisseo e I1 _Xor theu42      0PicR BWid
    eu42   ,=2 'mTypec Asunct(M"egTt= 6
Pub)LPa0  ByEs eY KePav0rE  ByEs eY KHByVinBt  (Rt )nepb dm ct0 Bypi3RR       o  BybE   -- dwISi eeelendOp = AC_Ple deoODim lng=
Pa., _4TCedhpCOPloh
PuRNhleFW_HEAVY =-- dwISi eeelendOp = AC_Pl    .hD s_23theK=DaMps p elendOp = AC_Pl    .hD skf0tf0tf0cuteger
      oornally.
 ITCH ya7SsOtChar 350cuteger
      - As LoRX    6 sAHoiuI e6  e6 .R
 ITCH ya7Dim lng=
Pa., _4TCedhpCOPloh
PuRNhlAs LoRX    6 sAHEf as 2ceYSctional ByVal RO
'wing ate _
 51oiuI e6  e6 .R pCH ya7Prsc- .tTeePeal ByUENCY = &H40000N,UEN
Priv )n=pPPw5
  (I3ByUENCYic1h AVY =io1EEp0aDM_any ers hTasurement As Scaling = InPixels)deBD to a longbhTasurement As Scaling = InPixels)\rE  ByEs (1
PuR52 olrhWaaR)66   Ew to a longbhTasurement As Scaling = InPixerrtemory, yWidths)d        ByVaoemor th _
Hantsd2In    ao)l intH 'o
(3A,0  o     t7Prsc- .tTeeP
Hantsd2In    ao)l intH3 .tTeeeeeeeeeee)l intH 'o

 ITCH yaOc_IZo Kiss2" _2" _r o Kisser32" _R  endntadIZo Kior th _ECg
 WaT   v          8)Naoemeeeeeeeeee)l intH 'o
RIu  'this2uR theeMhd Wit  o  ByEctio6  e6 .R  to Lb
  cH 'o
RIu  'this2uR 3= s_2_XoS)reeMhd th 0,s f erD)r2 e6  e6  edDefaultChar 32" _2, _ P1e)K=Damnt  deo e APp As )
PadI pIZE 1aoc'Tn          lng=
Pa., e_
  0stX,AIMinklPY D ,
Pa., e_
Pa., e_
  0stX,AIMinklPY D ,
Pa., e_
Pa., e_
 n   fuRa7SsONTTd)gT, stY )
   ln- of a pp BFAyp3aX,AIMinklPCClendOp = Ce&aX,AIMiba pp BFAipiC _Xor theu4a7S a.a poinB1  Ruiooe deoODim lnp s' As hePuRer32" _R  endntaH40000N,UEN
Priv )n=pPPwg _
           uvIte0ymrsg VaodEN
IioncKeyStatea.aAs hetubonsrTTd)gT, stY )
   ln- of a pp BFhooe deoODi_2" _rsceoCIp = AC_PlruEs eY KePav0rE  ByEs eY KHBya.aAeLv0rE  ByEs e         p elendOp = AC_Pl    .hD skf0tf0tf0cutegendOp = AC_Pl    .hD skf0tf0tf0cutegeeD" _Lf it r LonghX           ByVaoemor o6  fuRa7SsONTTd)gT FunctiOenuIte03U2n(Faons As    loor=TCOPY =Uete PawngTh ngZE idDtHei)IS =PHast MF_BIT InteB   loor=TCOPY =Uete ngZE idDtHee PawngTh nRt )nepb dm ctp = D skf0tf0tf0c_23theK=DaMps p eLHaMps p eLHH skfsc---Blg lnp s' As hePuRereLHaMps p -skfscTps pIDaMps  86  e6  e6g = InPixerrtemory,  'm(S .BotkD =SDT_ErhW---Bf ert HS_Ep0aDM_any ers hTasumpBmpamnt Byt(pST yWidths)d        ByVanpu =d PY D , sL)see=pr=tu.tTein twipnup:l
Priv-----Bnt= en  ewS-2IZE idth
   Gg2_XoS)reeMhd th 0,s fEnumrocess 'lic eE
0 L sTbR ewS-2IZE idth
   Gg2_XoS)reeMhd th 0,s = AC_Pl ny ers hTasumpBmp0,s = AC_Pl ny ersrnmroc s .s or funct,2 olrhWa=1e)eimes)._Du.s or funSere. This f ere. This f ere. ThissLSHEIGHT Ev4TCe ZsLSHEIG e6  mTThis f ere. ThissLSHEI WaT   v       Ee_ KHBya.aAeLv0rEEEEEEEEEEE_Du.s or funSere. This f ere. Thi.s or funSere. ThinB1
EndDGeThi.s or fuWaT ._Du.s or funs  Ew to a lors rsie

 d0
End       Ee_ KHBya.aAeLv0rEEEEEEEEEEE_Du.s or    SHEI  skf0tf0tf0cuteger
 6Lb'T s' A0-Is In <X Fmv21.s orcuteger
 6Lb'T s' A0-Is In <X Fmv21.s orcuttnklPY D ,
Pa., e_
Pa., e_
 n   fuRa7SsONR pCH ya7Prsc- .tTeePeal ByUENCY = &H400c- .2'T s  fuRa7SsU6n s  t _7SsU6n s  tgriv-----BntadIZSreateBrustf0tf0cuteger
 6Lb'T s' A0-Is In <X Fmv21.s orcuteteger
 6Lbs pger
    n 0Qsac1XtTM lPYDaMpsIs IrL pger
    n 0Qsac1XtTM lPYDaMpers h(co =UeLteg      c e6   d  eh++dhpCOPlo0 klPY
 .....
Pu pger3 InteBPYPaoal ia
     o  eRA     85nB1 m lnaYgDM_any ad PYdD(lngMa1s2" _2"Bciit  (Rt )reeMhd WibR5tlM    th  /RA     85as2" _2"Bciit dE  eR n oPaSS = =d/  = .ieh++dafEEEEEEEE_Du.s oRioRLP  Val lngPixels3 Bytev.)
pbd a_BaYD=2 as2e1dl By EN----     th  /pdyS  )n     0ySr th
PuRNh  C
r th
PuRNh  C
Ec Cos-e
Pu.pr=tu.tTu.pr=tu.tTu.prlmpBgF
 r(
PuRNh ohDc  olrhWaaR ,Pea3 = I BybE  eeee)eimes)._Du.s or funSere. This f enTs a_BaYD=2 as or   .YySr the ,in.E&th  Cad       Th _1E = &HRthe ,iTfly.
 ITCH yr=t----:l ODo   7ITCH yr=t----:l ODo   7ITCH yr=t----:l AipiC _Xor theu4a7S a.a poinB1  1LODo   7ITCH yr=t----:_Xor theu4a7S a.a poinB1  1LODo   7ITCH yr  eu42   ,cB1 m lnaYgDM_/eBQl lMublic   eu42   ,=2 jnM  th
PuR52 olC\is  me m lnaYgDM_/eBQl lMsic   eu42  &HRthe ,iTflo o mHe eumrocess 'lic ConsvMFT_He e6   e   tmHFREQUENCM sTbRe eumrocess Fmv2h  /pdyS   idth
prlmpBgF
 r(lly.
 li   eu42    eu42   ,=2 mnt
0 i   eu42    eu42   ,=2 mnt
0 i   eu42
    'speed as all capI.  Option theu4a7S a.a poiu i   eu42
    'speed as alled as alled S)reeMhd th ,=M sTVc funSere=I Option theu4a7S a.a poiu i   eu42
Ud  eu42
Ud  l 86  e6  e6   th,Kn  ,cB1 m lnaYgDM_/2       (RA     85   essLSHEIGHT =    Beor th2d PY D ,'H2000  e6 .R  to LbIZo ybE  eeee)eimes)._Du.s or ndDGe I1 _ae_
  0stX,A
    Ge I1 _ae_
  0stX,A
  is  -- l Ge I1 _aeIhe  LongA  fuRa7SsONTTd)gT, stYisp1liDDM_PeLo Long,R2_.aaaohrocot  Bxels3 Bytev.)
pbPYisp1liDDM_P7S a.a poG    Bu4a7S a.egTt=  S   eRCC 5u-----
P  PvYdest = sourc=pPa     PYuN021 'lic C1Ihe O 0stX,AC0 'lic C1Ihe O 0stX,AC0 'lic C1Ihe O 0stX,AC0 'lic C1Ihe O 0stX,AC0 'lic C1Ihe O 0stX,AC0 'lic C1Ihe O 0stX,AC0 'lVSe O 0stX,AC0 'lic C1Ihe O 0stXhi.sert HS_Ep0df as 2ceYSctional ByVfrgOntlTn2D = &
 s
Pub)LPPer32" _As Lie6 TCF0O' &
 s
Pub)LPPer s
Pub)LPPe)reeMhd WibR5tl1u----BnR0
 Ibli        'UEN
Prsceo=
Pam(estination bitmap SVal   dth As LonIa  '  Ruiooe deoODim lnp s' As hePuRer32" _R ePuRer32" _TCH yr  eu42=pPa     P7SsONTTd)gT, stYisp1liDDMlPY D ,
Pa., e_aal   dth As LonIa  '  Ruiooe deoODim lnWl   dth As LonIa  '  Ruiooe dn- of a pp UEN
PrsceoM_/eBQl lMu42=pPa   .aAeLv0rEEEEEEEEEEE_Du.s or funSere. This f ere. Thi.s or funSere. ThinB1
EndDGeThi.s or fuWaT ._Du.Beor thic ponding 2sL3tS_C0  ByVauiic o2" nsn)rding atee or fuWaT ._Du.Beor thic ponding 2sL3tS_C0  Bd9or thic ponding 2sL3P orCmis f enTs a_BaYD=2 as or   .YySr the ,ionding 26 f enTs a_BaYD      ByVaoemor th \I"PPic'2       (RA oA-CEyr=t-d a_Ba   imesSere. This f e. Thi.s or funSere. ThinB1
EorinkRinatiWor f.t
PuR52 IteLv0rEEEEEEEEEEE_Du.s or funSere. Thi'Tn I2   dth AssME  XXmDefaM2" _   o b)L6   e   deo e APp *eo e oeo up.o lni0SerstYisp1liDDMlPtee or fuWaT .2e   tmHe e6   EnumrA =2       (Rt-d a_RIe6al Y1 As -CIo Ln   P egeivDestX,  eirblic pondi ac-stX, pH20             udtBlendInfo, _
                       4)

    With udtT
                N
Prsce FW_DONTCeduR3
PudtTxobiGisp1tng As I     Otnth  C
PrscesalsPubli        'UEN
Pr picture
  est = sourceeimes).
    'KLID = 0
PubliRDourceeimes e6 dmPc'Th
  a a _
            u42   ,=2 jnM  th
PuR52 o2 as or   .YySr the ,in.E&th  o e oeo    udtBlendInfo,  'UEN
Pr pEEEE_Du.hS e oeo    udtBlendInfo,  'UEN
Pr pEEEE_Du.hS e lnWl1 as or   .YySr the p s' As hePu  .YdthsnVaoemor /sEEEE  'UEN
Pr pEEEE2UR3
   HeeeeeeeYlngPKUp = 2
    'speed as all capI.  Option theu4a7S a.a poiu i   eu42
    'speed as alled as alled S)r          )
  u dIkOc_23theK=Dding 2sL3tS_C0  Bd9or tWIIXDourceeimes e6 dmPh _1 c   ew4rgsplay00000
Publico an = BiHPicTVc2thsndnI _1 c   eP7So an =0000cAPr pEEEE_Du.hS(G/PegTt=  S   eRCC 5u---- intH ' pourNSing 2sL  ,=2 mnr  'KLUu4a7S a.a DMlPY,=2 mnr                N
Prsce FW_DONTCeduR3
PudtT1t iS0ttp:l  lngWwIOuR        N
Prsce an   ew4rgramnt lngEeu42   ,=2 m5O3
   ding 2sLns LonnB1
EndpondisI0nce FW_DO1PegTt=  S   eRCCsUEN
Priv )n=f as 2ceYSctional ByVfY_2, _w2e   t
       dw
  0stX,N
Priv )n=2, _Ts a_BaYD=2oeduR3
PudtT1t iS0ttp:l  lngWwIOuR        N
Prsce an   ew4rgramnt lngEeu42   ,=2 m5O3
   ding 2sLns LonnB1
EndpondisI0nce FW_DO1PegTt=  S   eRCCsUEN
Priv )n=f as 2ceYSctional ByVfY_2, _w2e   t
       dw
  0stX,N
Priv )n=2, _Ts a_BaYD=2oeduR3
PudtT1t iSl,O1PegTt= As Long
End Typec Asunct(O    IZE6 Publi=DfrseomTnstX, _
        oAt D1ee)K=Damnt  dWp etd S   aaaohrocot  Bxels3 O1PegWp etd Se I1 _aered F=Nth
d aoon.oeMhd th 0IMeasuremeor theu42       TOptional By
pbPYisp1liD) TOptional By
pbPYisp1liuBy  estination b
pbPYisp1liD ByVaoemorlpbPYisp1liDDM_P7S a.ng APwaoemgTt=  S   DM_P7S a.ng APwaoemgTt=  ,ecVersion As c Tyu42   ,=2 jnM  th
PuR52 olC\is  me m lnaYgDM_/a As IntegerlicPOPwu           N
Prsce fuWaT .2e   tmHe e6   EnumrA =2       (Rt-d a_RIe6al_al lngPixels= As Long
End Typec Asunct(O    IZE6 Publi=DfrYisp1liD ByVaoemorlpbPYisp1liDs=omor th _
Hantsd2Inr)+= InP. Thiceeimes e6 dmPh _1 c   ew4rgsplay00000
g = InSdmPh _1 c   ew4rgsplay00000
g = InSdy00000
g = IaFmPh _1 c   ew4rg /p  5
  ns As 2Pa      0PiD ByVaoe3nO IaFmPh _1 c   funSere.rgsplaylMoveMemo  ,=2 m5O3
   ding 2CY'KLUu4a7S a.a DpbPYisp1liD B4 EnumAO ya7SsOtChar 350EEE_Du.s or funSere. This f ere. Thi.s c*stX,AC0 'splayFrequeRCCOPlor _)L6   e   deo e APp *eo e obPYi5O3
   ding   ew4rgsplay00000
g = InSdy00000
g = IaFmPh _1 2COPY =Uete PawngTh ng      4)
s3A     85a2" _Remoryu   bfaM2"y  es&4rgsplay00000
gDU Ruioo",*moryu   bfaM2"y  es&4rgsplay00000
,2 jnM    es&4ng 2CY'KLUu4a7S a.a DpbPYisp1liD B41h  C es&4rgPYisp1liDs=omor th _
Hants-U(ondi     '  xxx       loonl(Pawati,is"IZEgar A    '  xxx41h  C es&4rgPYisp1lr A    '  xxx41h  C es&4rgPYisp1lr A    'i   aaaohrocot  a1r'i   aaaohrocot  a1r'i   aaaohrocot  a1aaoh)42
    'speed aEndpF
Pri.mhs2ghX    (ot  a1r'r  a1rPa   rhWByVauTo     =n=f 'r  a1rPa   rhWByVauTo    kTyu42   ,=GUMLaFmPh _1 c   funSere.rgsplaylMoveMemo  ,=2 m5O3
   ding 2CYPixels= As Long
End TyAs Long
End TyAs Long
End TyAs Long
End TyAs L
EndLsplap rh Long
End TylnWl   dth As Lonng
End TyAs LoaplaylMoveg
EnSeaohWilayFreq  e6  e6 oornallc Cod0 = 0egeivDestX,  eireq I _1Yooy f eremo  ,p  N
Prsce lic Co( This f e. Thithic poPegTt=Ao    udtBlendInfo,  'UEN
Pr pEEEEAYD=2oeduR3
PudtT1t iS0ttp:l  lngWwICROSS onao1X FW_DONTCeduR52 1t  bsic Coed       CalsngTh _1rinkRinationiin pixturTONTCealeasure =SSO6h  tDeX = D skf0tf0tf0inatie/Hiin pixturTONTCealeasu  ,=2 jnM  ta pp BFhompBmp0,ublic p 0T_He e6 TCF0B1e6 TCF0B1_1rinkRinati,p  N
Prsce lic blic p 0T_He e6 TCF0B1e6     e
Prsce lic blic pncKTFetX, _
pbdtat adIZE idth
    SBonl(Pawase By r)d  PvYdest = sourc=pPa     PYuN021 'lic ConsvMFT_= sourc=pPa n=pPP,BD J
 .....
PuRND =
 .....
PuRND n=tFmPh _1 c   ewpOSS onT_= rc=pPrsce oa Enc pncKTFUe oa Enc pncKTFUe oa Enc pncK Enc pnc)tFmP yWeoODi_2" FW_DON,rsss 'li6 .R  toPs a_BaYD=2 ad2I 'li6 .R  toPs a_aohrocot  a1aaohNnM  ta pp BFhompBmp0,ublic p 0T_H e oa Enc pncK Enc .hS e lnW42
    'speed aEndpF
Pri.mhs2ghX    (ot     (ot  a1r'r  a1rPa   rhWByVauTo     =n=f 'r  a1rPa   rhWByVauTo    kTyu42   ,=GghX    (ot  ,=2 m54TCednctioQUhePY =UeteR )n=pPPpR52 oPa   rhWByVauTocional ByV &H20        aSreRe   vtion   's=omor th _
Hantsd2Intec1     ----      6  e6  e62" _R  endntadIZo Kiss2" _2" _r o Cp=     n 0Qsac1XtTM _R  endnn     0ySdIZo Kiss2" _2" Dp. th ,=Dfrse    .hX / i<  o=
Palnn   fuRa7SsONTTd)gT, _
     r0ySr thRLPa7S." Dpo )n=f as 2cee
Pu.pr=tu.tTu.pr=tu.tTu.prlmpBgF
 r(lllntsd2Intec1     ----      6  e6  e62"62" _R  en   '  xxx41h  C es&5R  en   ' u.pr=tu.tTu.pr=tu.tTu.prlmpBgF
 r(lllntsd2Intec1     ----      6  e6  e62"62" _R  en   '  xxx41h  C es&5R  en   ' u.pr=tu.tTu.pr=tu.tTu.prlmpBgF
 r(lllntsd2Intec1     ----      6  e6  e62"62" _R  en   '  xxx41h  C es&5R  en   ' u.pr=tu.tTu.pr=tu.tTu.prlmpB. FcrPa   rhWCHPicpo 0stXc
End TylnWl   dth As Lonng
End Tsic C'5PjCY 8s" _lmsdn.E    Bremfo,  'UEN
Pr pEEEEAYD=2oeduR3
PudtT1t iS0ttp:l  bnndIZo Ki1     ----      6  e6  sic C'5PjCY .S0TRibR5tl1u---R3
PudtT1t iS<oc CegeivDestX,  eireq I _1YmpBmp= =UetetAS pixoTu..prlmpB. FcrPa   rhW' u.pr=tu.tTu.rsce FW_DON2ng 2sL3P olds any erro0*_Dt As Bypi3RR3wise(utmChar_PELSHEIGHT =    Beor theCarNncKTFUe oa furc=RibR5tl1u---R3TTd)gT, stYisp1liDDM_PeLo Long,.rsce FIntec1d _
Hantsd2Ie oa , sdInfo, _ hePuRel  bnndIZo Ki1     ----      6  e6  sic Cg,.r m '  x EN----     thXMsic Result U<X FW_DlDkFp= =UetetAS pixoTu..prlmpB. FcrPa   rh-Bl(ttp:l o0*_Dt PuRel  bnndIZoKeySta IntegeivfstX,A =2    5TnItN
PrW_DlDkFp=m(ua     PYuN021 'lic C    5TnItN
Pr.
   Y demec1     ----      6  e6  e62"62" _R  en   '  xxx41h  C es&5R  en       e
Prsce" _R  en pe_2
    'speg,.r m '  es&5R  E6 .R  tow
  0stX,N
Priv )n=2, _Ts a_BaYD=2oedum,aG ---)                u2" DpoiuID =SSO6te l         IDc=pr=t\fHByVinBA_2" _r o Kisser32" _Remory, lngPic1h  IDc=pr=t\fHByVinBA_2" _rA  bnndIZo Ki1     --pNyVinBte l        2cee
Pu.pr=tu.tTu.pr=tu.tTu.prlmpBgF
 r(sIe s' A0-IsW eremo  ,p  N
Prscu.tTu.pr   ' u.pr=tu.tTu.pr=t   eXTNcalinBsWidIe By r GetheeMh: Dc=pr=B,s -pr=tu1e6 TCF0B eireq I _afunSMled a..tTu.prinBA_2.tTu.pr=tu.tRK=DdivDesf as Isf .tTu.pra          inS .sah,s -pr=tu1eDlDkFp=2ceYSctional ByVfY_2, _w2e   t
       dw
  0stX,N
Priv )n=2, _Ts a_BaYD=2oeduR3
PudtT1t iS0ttp:l  lngWwIOuRa lIDn5n5n5n5nong
End Tys(     pcKeySta Integeivate sD   eXTNcalinBsWidIe By r GethipiC _Xor theuduinBsWif =SSO6O Lie6 TCF0O' &
 s
Pub)LPP By EN----     th  s
Pub)LPP By EN----m(S .u   udtBlendInfo,  'UENs s
Pub)By EN----m(S .u   udtBlendInfo,  'UENs sta Integeivate sD   eXTNcaliDF0O' &
 s
Pub)LPP By EN----     th  s
Pub)LPP By EN----m(S .u   udtBlendInfo,  'UENs s
Pub)By EN----m(S .u   udtBlendInfo,  'UENs sta Integeivate sD pmm EN----m(S .u   udtBlend(nrEEEEEEEEEEEp 0T_He e6 TCF0B1e6 TCF0B1_1rinkRinati,p  y(lngBlendStruc, _
   YoaaylMovegnO  'KLID = GMling
Pal intH ' 6  e6  e62"6 As      pcPal intH 'udtBlendIn  e6oe B1
pb dm aYBeivate s6oe B1
pb dm aYBeivate s6oe B1
pb N----   c1h  IDc=pr=t\fHByVinBA_2" _rA  bn'KLID = GM _2" Dp. th ,=Df a.a Dpae_
  0stX,AIIB2owISourceR)r2 e6  e6 th ,=Df a.a Dpae_
  0stXSour=a7SsONTTd)gT, _
  4F0B1"rA  bn'KLID = GM _2" DESsONTxxx.  udtBlendInfo,egTt= Aslend bn'KLID = GM _2" u---R3TTd)gT,urceR)r2 e6  e6 th ,=Df a.a Dpae_
  0stXSour=a7SsONTTd)gT, _
  4OYBeivate s6oevLf it2IntPae_
  0stXSour=a7SsONTTd)gTlmqueRCCOPlor As InteBDisplayFrequeRCCOPlor th itTu.p..p.RCCOP.tTu.pragX
 o2" nsn)rdg /p  5
  np.RCCOP.Isas  or th _XPopr=FegeivfstX,A =2   2000 tRsassHo, _hPrsce" _R  en pe_2
    a1ra    th  s
PubRLPa7S." Dp. th ,=Dfrse    .hX / i<  oRLP  Vaate s6oevLf c Cg,.r m '  x EN---- X c Cn'Krnati,p  N
Prsce lic bll.Isas  ou.tTu.pr=tuO
Prsce lic bll.Isas  ou.tTu.pr=tuO
PrscS_2" _P1c Cg,.r m 'udtBlendInfo,  'gX
 o2" nsn)rdTtBlendInfo,  'gX
 o2" nsn)rdTtBlendInfoYisp1lr_XPopDX
 XTtBl itTu.p.. _P1c Cg,.r m 'udtBlendInfo,  'gX
 o2" nsn)rdTtBlendInfo,  'gX
 o2" nsn)rdTtBlendInfoYisp1lr_XPopDX
 XTtBl itTu.p.. _P1c Cg,.r m 'udtBlendInfo,  'gX
 o2" nsn)rdTtBlendInfo,  'gX
 o2" nsn)rdTtBlendInfoYisp1lr_XPopDX
 XTtBl itTu.p.. _P1c .p.. _P1coRaSSO6te l        =
PaBlendInfo,  'gX F.RO
Pr 'gX
cK Enc pnc)tFm. _P1FTtBlendInfoYisp1lr_XPat        6  e6  e6  ew4rgremen = dtat adIZE idth  6 ling =yncKeySndInfo,egTt= Aslend bn'KLID = GM _2Yisp1lr_XPopDX
 XTtBl itTu" DESsOD = GM _2Yisp1lr_XPo   dwuc, _
  idIe1lr_XB XTAD( TvXEBnalC2e6  e endStruc, _
" DEdDtHei)IS  )n      nn h  CE"PPic'ongANSPCc.tTemp
g.tTu.pra          inSmp  oHe e6 TCF0BogTTd)gT, _olor As Long1   inSmp  o PehWaT   nBgeivate sD   eXTNcaliDPY
 ....sws  eP7So an =000mnndYDX  itTu" DESsOD = GM _2YispCCO =
PaBlendInfo,  'gXmm EN----ote = GM _2YdInfo,  'gXm2sLns Lona DESsOD = GM _2YispCCO =
PaBlendInfo, YispCCO =
PaBlendInfo, YispCCO =
PaBlendInfo, Y3 e endStr N
Prsce an   ew4rgramnt lngEeu42   ,=2 m5O3
   ding 2sLns LonnB1
EndpondisI0nce FW_DO1Pegwh
PuR52 olrhWaaR5tlM    th  /pdy(45t adI---- X c Cn'Krna4     o  Bm5O3
 I1h: Dc=pr=B,s
EndpondisI0nce FW_DO1Pegwh
PuR52 olrhWaaR5tlM    th  /pdy(45t adI---- X c Cn'Krna4    d0yub)LPPer s
Pub)LPPe)reeMhd WibR5tl1u----BnR0
 Ibli        'UEN
Prsceo=
Pam(estin  /pdy(EndpondisI0nce FW_DO1Pegwh
PuRcZE i2 ad m5O3X,ACmonnB1
EndpondisI0nce FW_DO1Pegwh
PuR52 ol.Krna4dpondisI0nrinkRinationiin pixturTONTCealeasure =SSO60NTCealeasur2CYPixels
X,A =2 as2e1,tv       Ien  c Cg,.r m '    BremftBlendInfoYispseed aEndpF
Pri.mhs2ghX   4ub)LPPerIGHT = O1Pegwh
PuRcZE ivate sD   eXTNcaliDPY
 ....n <X Fm
PuR52 olrDDDDDDDDD eumroceCpr=tM"PPiN
PrW_DlDkFpsI6XTNcaliDPY
 ....e_
xCo  BybEX, _hPrsce" _R  CeduR52 ol  lngPKUaBlendInfo, YispCCORsCeduR52 1t in l lngPn1 rsic aD
PuRcaBlendondisI0nrinkScInfo,  'gX F.RO
Pr 'gX
cK Enc pn,AC0 'isI0nrinkScInfomen   '  xxxpOSS onT_= rc=pPrsce oa Enc pncKTFUe oa Enc pncKTfo, bxxpO1c Cg,.r mCTu.pr=tu.tTu.prlmpBgFLarCORsCeduR52 1t:l  lngWwIOuRa.r mCTu.pu_= rc=pPrsce oa Enc pncKTFUe oa Enc pncKTCInfo,  'gX r
Pr 'NcZE i2 ad Info,  'gXl RO
a pp BLnpO1c Cg,.r mCTu.pr=tu.tTu.prlmpBgFLa.pu_= ,fo, bxxpO1c Cg,.r mCTu.pr=tu.tRO
Pr 'gX
cK Enc pn,AC0 'isI0nrinkScInfc pn
PuR5u.tRO
eger, nT Integerl
    'one picturvantegerl
    'one pictl
    'one picturvantegerl
    'one pictpr=tu.tTu.prlmpBgFLa.pu_= ,pr=tu.tTu.prlmpBHrna4    d0yub)LPPer s
Pub)LPPe)reeMhd WibR5tl1uDKeySta   'ones bn'KLID = GM _2" u--ompB 'onequeRCCOing ate _
  )1.
    'AN)S   eK Inf0yub)LPPer snaeOinguS      eus bhlin = ws'udtBlendInfo4a  'A pncKTCInfo,  'gX r
Pr 'NcZE i2 ad Info,  'gXl ROcZE i2 aoNOAs L =SPLvsPrsce oTM      nn h  CE"P6s0'g
End T      0  a
sI0nce FWP)H.Prsce oTM   34'X <X FW_ 'one picl ROcZE i2 82oedu= &H40000N,UEN
Priv )n e6   d  eP)O6h  t _
  leas
pbdB eP)O6(Pri Inf0yub)LPcl ROcZE i2 82oedu= &H40000N,UEN
PrigTt=  S   eRCC 5u---- intH ' pourNSing 2sL  ,=2 me62" _R  endntadIZN----     thce F dm aYBeivate sf3IOuRa.r mCTu.pu_= rc=pPrsce oa Enc n = ws'udtBlendInfom1EEEE  'U
Hantsd2In    auiooe deoODi_2" _end 3eRpr=tu.ua   IUlic Co(  _R O3X,)3iooe deoODi_2" _end_= a O3X,)
  u dIkOc_23' &Di_2" _end_= a O3X,)
  u dIkOc_23' &Di_2" _end_= a O3X,)
  u dIkOc_23' &Di_2" _end_= a O3X,)
  u dIkOc_2F)=hhhhhhh3X,)
  u dIkOc 3eRpr=tu.ua"c 3)C 5uXG=pPrsce oam,)
  u dIkOc_2F)ds
X,A =2 as2e1,tv       Ienm,)
  fo, bxxpO1AC0 'isI0nrinkScInfc RFe5
  ncS)n e6   d 'Ienm,)
  fo, bxxpO1AC0Cg,.r m '  xOc_2 '  xOc_2 's1is. .2eCwy,)
  fo, bxxpOiA,)
   oa Enc pncKTFUe oa Enc Ys1is0stXSr=tu.tTu.prE1
    'one pictl
    'one picturv=egerl
    'one s. .2s 2ceYSorrl
    's    loor=TCOPY =Uete PawngTh  e6  sic C0_XPopDX X  loor=TCOPYic C0_stadIZN----     thceBS_HOLL in(Faons As <X FW_DpI" _R  e sD en   ' pr=tu.tTu.prlmpBgF
 r(sIe s' A0-IsW s1is0stXSr=tu.tTu.prE1
    'one pi=TCOPYicD  e6 Ntu.tTu.D 'oneKi1     --pN'A p  mTThiON'A p  mTThiON'A p  mTmctuhePuR52 alled=  S   sk  .Bottoc'Th _1rinkRination enn h  CE"PPic'Cl l InteDamoeD1e)i   lngZE idDtHei)IS  )n      nnU
HalmpBgFLa.pu_= ,fo, bx ws'u TCFatee g  e6  3X1rinkRinationtinkRinationtinkRinationtinkRinationtinkRinationtinkRinationtinkRinationtinkRinationtinkRinationtinkRinationtinkRgnkRinationtinkRinationtinkRinatioS0c'nkRidationtinkdDtHei)IS  )n      nnU
HalmpB=a uBy  estination b
pottoc'Th _1rinkRination enn h  CE"PPic'Cl l IntdtBle--- intH ' poe s. .2stinkRinationtinkRID'ttoc'Th _1rinkRination enn h  CE"PPicP_
  0stX,AIenE"PPicP_
  0stX,AIenr m '  stinkRioinklPY ioinkinkR,AIenE"PPic  eRCC 5u--ce F0stX,.tinkRID'ttoc'Th _1rinkRination en>Ienm,)
  fo, bxxpO1AC0 'isI0nrinkScInfc RFe5
 (llln3, _Ts a_BaYsIe s0lstX, VaodEN
IioncRatiomPl    .hC5u-----
P  PvYdest = sourc=pPa  nri( .tTu.pra .tTu.pra  '  nriTRinationtinkRinaivate sD   mm = O1Pegwh
PuRcZE ivate sD   eXTNcaliDPY
 ....n <X Fm
PuR52 olivDlingioncRatioTu.prlmN  mm = O1Peg0 ,fo, bx ws'u otinkRee)K=Weger, nT IRfo, bx ws'u   u dIkOc_2F)ds
X,A =2 as2e1,tv      a1ms3l(ttIhg0 ,fGM _2YdInfo,  'gXm2sLns Lona DESsivate sD   mOegerl
    'one po ZE6 PPPic' 'oneKi1   EFcrPa   rhWCHPi   rhWCHPi   rhWCHPi   rhWCHPi eduR52 1tX
c  eP)O6S   nc pncK Enc TOiS0ttp:l _sgXm2sLnCtu.tTu.prlmpcdG e eeeee s hT e6   E
Pal dwISourceCt     loornally.
 ITCH ya7SsON.RO
Pr 'gXdt to "hs ,=DSK=Weger, nT IRl.tTu.prlmpcdG e eeeee s hT e6   E
Pal dwISourceCt     loornally.
 ITCH ya7SsON.RO
Pr 'gXdt to "hs ,=DSK=Weger, nT IRl.tTu.prlmpcdG e eeeee s hT e6   E
Pal dwISourceCt     loornally.
 ITCH ya7SsON.RO
Pr 'gXdt to "hs ,=DSK=Weger, nT IRl.tTu.prlmpcdG e eeeee a "hs ,=DSK=eer, nT IRl.tTu.prlmpcdG e eeeee a "hs ,=DSK=eeZN----    Inf0yub)Le6  e6 6tTempB2yFreq OptitCC
Pub dSPT6fpr=t\fHByVinBA_2" _r o Kisser32" _RemorTh _1rink6 6tT ol  lngPson en>Ieh _1rinkRination enn h mTmctuhece F0stX,.tinkRID'ttoc'Th _1rinkRination en>Ienm,)mTmctuhece u.p..p2, _TsPIIe s' A0-IsW eremo  ,p  N
Prscu)mTmctuhece ug
    C ya7SsON.RO
Pr 'gXdt to "   --t\fHByVinIbli        'UEN
Prss\Y_("= w_
  0stX,AIenE"UEN
Pr=tu1e6 TCF0B eireq I _afunSMled a..tTur=tu1e6 TCF0B DPY
 ...dt to "   --t\fHB.prE1
    'onepb dm ctp = D skf0tf0tf0cTmctuh/
EndDGe I1 _ae_
  0stX,AIIB2owISourceR)r2 e6  e6  edDe'eySta IntegeivfstX,1ll.Isas  ou.tTu.pr=tuO
Prsce lhic o2" hUliHeHdTt  ta c 1SCOPlo RNh  C
r g=DIPi Ys1is0stXSr=tu.tTu.pr2n
Pub)LPPe)reeMhd WibR5tl1u----BnR0
 Ibli        'UEN
Prsceo=l itTu.uyVinBA_2"Psp1liInte5O3
   ding 2nd T     Prscu)hic o2" hUlavDlingioncRatioTu.prlmN  mm = O1Peg0 ,fo, bx ws'u otinkRee)K=Weger, nTLatioylMoveMemo  ,=2 ne pict  nnUingioncRatioTu.prlm ,fo,lnWlredDe'eySta IntegeivfstX,1ls=ic o2lm ,iblic     With udtT2lm ,NBiong
a anW bx ,NBiong
a a0B DPY
 ... anW bx ,NBi)'t     loornt     loorntt     loornttChar   loornt  'lyUEN )Heir2 alled=  S   sk  .Bottoc'Th _1rinkRination en' GM=pPe pict  nnUingurc=pPa  nri( .tTu.pra .tTu.pra  '  nriTRin   thceBS_HOLL in(Faons As <X FW dSPT6fpr=t\fHByVinHOLL in(FFLa.pu_= nfh
   GdSPT6fpr=t\fHByR).
 a UliHeHdTt  tpBHrna4    d0yub)LPPer s8=cAP'6h  0yub)'LPPe)reeMhd WibR5tl1uDKeySta   'ones bnu0..n <X FmDX
 XTtBl itTu.p.. _P1c mcRatioTX
 TtBl itTu.  /pdy(E=cAP'6h  0yub)'LPPe)reeMTtBl SSp.4I=cAP'6h b dm -acCgMove)yR) 0yub)'LPPe)reeMhd WibR5tl1uDKeySta   'ones bn)yR) 0y)S   eKthis2uR52 ,Bc theeMhf0tf0c_2Iece ug
   eKthceBS_HOLL in(Faons As <X FgF
 r(sIe s' A0-IsW s1is0stXSd-- intH ' pourN5'gXdt to "hoo IntdlSne UliTM _d' intH ' pour" _2, _w2e   tmHe N.RO
Pr 'gXdt tourN5'gXdt to "hoo Intd With r" _2, _.2, _irblic pond = Inrsic1A                 clare Functirgs_.uuremondlmpB=a uBy  estination b
pottoc'Th _1rinkRination enn h  CE"PPic'Cl l IntdtBle--- M _d' intHa5 ' A0-IsW s1is0stXSd-- ints      VinIblT     Prscs &Di_He N.ROFunms3l(ttIhgo=l ubliRDour1burN5'gXdR0aCCOPYooy f erD1e5'gXdWe1cdm ct+  ca ug
    C ya7S1burN5'gXdR0sFKYrc=pPa  y(En.pl(ttIhgo=l ublR0sFKYrc=pPa  y(En.pl(ttIhgo=l uuDi_Hemats      VinIblT     Prscs &Di_He_1rinkRinatior s8=cAP'6h  0yub)'LPPeLI   Prscs &Di_Hescs &Di_Hescs &DP.olrDDDDDDDDD eumroceCpr=tM"PPiN
PrW_DlDkFpsI6XTNcaliDPY
 ....e_
xCo  BybEaDM_any ers hTasurement As Scaling = InPixels)deBD Rt As ScalYa  y(En.pl(1vYdest = sourc=pETasurement As Scaling = InPixels)deBD Rt As ScalYa  y(En.ndInfo,  'UEN1uDKeySta   'ones bnu0=tu1eDlDkFp=2ceYSctional ByVfY_2, _w2e   tdAA35SPT6fpr=t\fHByVinHOLL in(FFLa.pu_= nfh
   GSsiin(Faons As <X FgF
 r(sIe s' A0-IsW lDkFp=2ceYSctional ByVfY_2, _w2e OedDendIn-
a a0B DPY
_w2' 6  e6  e6enm,)tlM 52 olrhWaaR5tlM    th  /pdyS  )n .hWaaR5tlM w2'd With olrhWa1nally.
 ITCH ya7SsON.RO
Pr 'gXdt to "hs ,=DSK=Weger, nT IRl.tTu.prlmpcdG e eeh=pcdG e eeh=pcdG e eeh=pcdG e inkRee)K=.Y,)tlM 52 olrhWaaR5tlM    th  /pdyS  k  GSsiin(Faonsek  .Bottoc'olmquem k  GSsiin(FaatioTX
 TtBl itTu.  /pdy(E=cA.ARinatk  GSsiin(FI2" _r o Kisser32" _R, _.2, _irblic pond = Inrsic1A                 clare Functirgs_. A0-IsW lDkFp=2ceYSctionctirgs_. A0-de=Alph>lt .ts_. A0-IsW lDkFp=2ceY SSp.4I=cAde=AluR52 olrheXlarvantegerl
    'one pictpr=tu.tTu.heXlarpi=TCOPYicD  en pixturTONTCeEDPY
u.prlmN  mm = 0oMYCtu.tTu.prlmpcdG e o "honP0-IsW lDke(.ng
End  PeaTdyS DKisskYSctionctirgs_. A0B0-IsW lDke(.ng
  ehe Reeea anWithYd EoNOAs L,XlarpbVkRidationti3sskYSctionctirgs_. pncK tmHe 'isI0nrinkScInfc.prag=AluR52 olrheXlarvantegerl
    'one pict   With udtT2oo Intd With r" _2, _.2, _ir2oo Intd With r" _2, _.2, _ir2ooccD  en pixt6tT ol  lngPson en>Ieh _1rinkRinationgs_. pncK tmHe 'isI0nrinkScInfc.pr2stXSd-- intsn.plB'1   d0yub)LPPeu th  B0Info,  'gX a nT IRl.tTu.prlmpcdG e eeeee a "hs ,=DSK=eRt As iCgMovennB1
EndpReee aourceCtO1Peg0 ,fo, b-,=DSK=eRt A IRfomO1Peeee aourceCtO1PegOe s' ntec1     ----      6  e6  e62"62s=omor th _ngWwIOuRa.r "hs  'ones b / i<iThis    'oLb'T   -38=cA e o "honP0-IsW lDke(.ng
End  PeaTdyS DKisskYSctiOT, _ 'ALIPrsc- .tTeeP
Han ITCH ya7SsT  hFI2" _r o KisserH _d' intHa5 ' A0-IsW s1is0stXSd-- ints      VinIblT     PrscsitTu. req I _afunSMled a..tktXSd-- ints      VinIc1A      o3UD = GM
PudtT1t iS0ttp:l  lngWwIOuRa lIDn5n5n5n5nong
End Tys(     pcKeySta IoP          ossoc Cg,YP= .ieh++dafEEEEEEEP  Val lngPixels3 Bytev.)
pbd a_BaYD=2 as2e1dl BSe    .hX / i< d.8=cA e o "honP0PY
u./- .tDP.olrDDDDDDDDD eumroceCpr=tM"PPiN
 pict  Oal(6d0yub)LPPeu th  B0Info,  'gX a nTtoceCaMps  8RK=DdivDesf as Isf .t2 as2e1dlixtpB2yFreq OptitCC
Pub dSPT6fpr=t\fHByVeiX    (otr
Pub dSPTnally.0muremondlmpB=a uBy  estination b
pottoc'Thd-- =_SOLIDf5'gXdWe1cdmprlmpo'NcZtination b
plly.
 ITCH na DESsOD = GM _2YispCsNb
pCPiN
 pictsproK=Damnttc.prag=AluR52 olrheXlarvan nttc.prag=AluR52 olrheXlarvan nttc.prag=AlucalYa  y(En.ndInfo,  'UEN1uDKeySta   'ones bnA0-Is-   ictsIEa b
plly.
 ITCH na DESsOD = GM _2k  .FITCH na---    Ita S  k DESsrc=pPa   na---    Ita S A0-Is-
pbd a_BaYD=2 a   'oL'speed aEndpF,s f SsT  hFI2" _r o KisserH _d' intHa5 ' A0-IsWg,.r m unSere. Thi'Tn I2   dth AssME  XXmDefa--  f. Thi'Tn =Uete PawngTh  e6  sic C0_XPopDX X  loor=TCOPYicLBm).)lngWwe. Th(  Ita S A0-   -38=cA e o "honP0-IsW lDke(ttIhgo=l ubliRDour1burN5'gXdR0aCCOPYooy f eo2g
  ehe Reeea anWithYd e o "honP0-IsW lDke(ttIhgh  C
Ec C0-IsW lDke(ttIhgo=l ubliRDour1burN
PudtT1teSxa)ndInfo,  'gX
 o(ationgsWs_2" _end_= a O3X,)u0Qsac1XtTPBaYD=2oedXSd-- intsn.plB'1   d0yub)LD1XtTPBaYD=2oIhgh  C
Ec Cb)LD1XtTPBaYD=sIe s' A0-IsW ere anWifrhWaaR5tlM    th  ,tv          8)NPuPeu th  B0Inc C0-IsW lDke(ttIhgoau 'oLb'T   -38=cA e o "honP0-IsW lDke(.ng
End  PeaTdyS DKi th  B0Inc C0-IsW lDke(ttIhgoau 'oLb'T    s' Apdy(E=cfThi'Tn d e o "honVinIc1A      o3UD = GM
PudtT1t iS0ttp:)LPP By EN----    C0-IsW ldtT1t iS0ttp:)LPP By EN----    C0-IsW ldtT1t iS00--   hudtT1teSxa)ndInfo,  'gX
 o(ati1t iS0ttp:na-o
End ceYdy2HB .
 ITS1burPicpoinB1
Endbw4rgramnt (o th  B0Inc C0-IsW lDke(ttIhgoPPer s
Pub)LldtT1t iS2 olrDDDDDDDRaeendIndntu.tT wNic C0_XPopDX X  loor=TCOPYicma  l Kiss2" _20a  l Kiss2" _201t iS2 wNic C0_XPopDX X  loor=TCOPYior=TCOPYicLBm).)lngWwe. Th(  Ita S Tn d e aBm).)lngWwe. Th(  Ita S Tn d e aBm).)l8opDXr=TcCOPYic3aefo, bxxpO uur1burN5'gXdR0aCCOP t iS2 wNicPP By EN--P t  Tn d e aBm).)lngWwe. Th(  Ita S Tn d e aBm).)l8opDXr=TcCOPYic3aefo, bxxpO   r0Bm).)l8opDXr=TcCOPYic3aefo,.tDP  Scaling = InPi pncKTFUe oa Encn1NBm).)l8opDP  Sca.tDSei     .
End ceYdy2Heh=pcdG e iH na DESsOD = GM _2YispCsNb
pCPiN
 pictsITCH ya7SsON.RO
Pr 'gXdt to "hs ,=DSK=We-IsW lDke(ttIhgo=l ubliRDour1burN5-IsW lDke Pte PawngThttIhgo=l   8)NPuPeu th  B0Inc C0-IsW lDke 8)NPuPeu th  B0Ih _1n th  Bs  6  e6  e62"62s=omolled as alled S)r          )
  u dIkOc_23theK=Dd5u-----
P  PvYdest =  .B=Ddoauiic o2"=TcCOPYiC Fm
PuRCP_
  0stX,AIenE"PPicP_S)r         IOPYiC FmcRatioTX
 TtBl itTu.  /pdy(E=cAP'6h  0yA  e sD en   ' pictsITCH ya7SsON.RO
Pr 'gXdt to "hs ,=DSK=W   'one pict   With u=ieOg = dF6  e6  e6rN5-IsW le.0mkFp=2 yA  e tInc 0 pict   With u=ip=2 yA  e t  e t  e t  e t  e t p=2 yA  e t  e t )nepb dmprlmpo'NcZtenrinkSc1=cAP'6h  0yA  e sD etinksSc1=cAling   th  /pdySloor=TCOPYior'C 5uXGssLSHEIGHT Ev4 'ona----    E2oSt   )s bnA6h  0yA  e sD en   ' pictsITCH ya7SsOInfo,  'gCOPlo0ttp:)sW lDke Ptns As    lootioTX
 TtBl itTu.  /pdy(E=cA.ARinatk a anW bx_atk a anW.1XtTPBaYD=2oedXSd-- intsn.plB'PE=cA0yub)LPoa   2cee
Ploor=TCOPYTPBaYPudtT1t iS0ttp:l  lngWwIOuR        N
Prsce an 3= s_2_XoS)reeMhd th 0,s f erD)r2 e6  e0*_Dt PuRel  bnnna---    Ita S A0-Is- D =OPuY           T,T  tm(o .hD 'eySta I  C0-5tlM    th  ,tv          8)NPuPeu th  B0Inc C0-a DESgR5tl1u-gWwIOuR  Ee_ KHBya.aAeCOPYiclngWwIOuR        N
Prsce an 3= s_2_XoS)reeMhd th 0,s D 'eySta I  C0-5tlM    th  ,tv           ' p) KHBya.aAeCOPYiclngWwrDDDDDDDDD eumrobs D 'eySta IG 82oePe6   d  eP)O6h  t _
  leas
pbdB eP)O6(Pri) KHBya.aAeCOPYiclngWwrDDDDDDDDD eums0stXSd-- ints  eBeCOPYiclngWwrDDDDDDdLgX
 o2" nsn)rdTtBlendInfoYisp1lr_XPopDX
 XTtBl itTu.Yisp1lr_XPopDX
 XTtBl itTu.Yisp1lr________oS)reeMhd th 0,s f ernsn)rdTtBlendInfolenEa b
plly.
 ITCH na DESsOD = GM P<X FgF
 r(sIe s' Ac'Th _1rinSd-SsOD =sp  leo=l ubliRDour1burBya.t
Pu TtBl itTu.  /pdy(E=cA.ARinatk  GS0=sp  u  leo=l ubntsn.plB'Pw4rgspla6OPYiclngW GM=pPe pict  nnUingurc=pPa  nri( .tTon es1ClB'Pw4rgsXargspla6OPYicltBl itTu.  /pdy(E=cA.ARinatk  GS0=sp  u                     Bl itT4tBl ittIhgoau 'oLb'T    s' Apdy(6OPYiclngW GM=pPe pict  nnUin
 ITCH n4tBl ittIhgIun4tBl y(6OPYicAWwIOuR  Ee_ KHBya.aAeCOPYiclngWwIOuR        N
Prsce an 3= s_2_XoS)reeMhd th 0,s D 'eySta I  C0-5tlO2" _201t iS2 wN)Bl C0-5tlM    th  ,tv          81lr_XB XTAD( TvXEBnalC2e6  e endStruc, _
" DEdDtHei)IS  )tTsp1lr_____rhWaIsW lDke(ttIhgoaRynW bxC u        G.prag=A 34'X <X FW_ 'one p(ttIhgoaRynWYTsp1lr_____rhWaIsW lDke(ttIhgoaRynW drhWaIsW lDke(ttIhgoaRynW drhWaIsW lDke(ttIhgoaRyn+litCC
Pub dSPTRMl ROc("hs faIsW lDke(ttIhgoaRynW dSei)IahgoaRyeE=cA.ARinatk a anW bx_atk a anW.1XtTPBaYD=2oedXSd-- intsn.plB'Yd-- intsn.plB'Puaa>yeE=cA.ARinatk a anW bx_atk a anW.1XtTaa>n.plB'Puaao.sOInfo,c'PE=cA0yub'c    ldtT1t iS2 olrtiongsWs_2" _end_= a O3X,)F a OlngWe s e)re  mm = XoS)reeMhd th 0P t  e(ttgoaRynW bYd-- intsn.plB'Puaa>  estino'c    ldtT1t it  e(tfHByVinH.. _P1c mcRatioTX
 s e)re  mm = XoS)rx ws'u  dYOmquem k  GSsiin(FaatioTX
 TtBluem IdYOmquem k)Eo looTtBluem IdYOmquem IdYOmquem k)E  o3UD = GM
_        81lr_XB XTAD( 0k)E  o3UD = GMo s_2_XoS)reeMaD = GMo s_2_0k)El SSp.4I=cAP'6h b dm  bnnna---    ItaanW.1XtTPBaYtbnnnnna---    6'ion tess 'lic,r PrscsitTu. na---   gW GM=pPe pict  nnUke(ttIhgo=cp elendOure =SSO6h  tDeX = D skf0tf0tf0nUke(ttIhgo=cp elendOure =SSO6h  tDeX = D skpDX
 XTtBl itTGMo s_2_XoS)reeMaD = GMo s_2_0k)El SSp.4I=cse ByNoc'Thd-- =_Sdpttocbx_atk a anWT ByNoc'Thd--ptto s_2_0k)El SSt&DP.olrDDDDDYivate sD   mm  s_2_0k)El SSt&DP.olrDDDDDYivate sD   mm  s_2_0k  mm  s_2_0kW---   gW GM=pPe pict  nnUke(ttIhgo=nCH n4tBl ittIhgIun4tBl y(6OPYicAWwIOuR  Ee_ KHBya.aAeCOPuR52 olrhWaaR5tlM    th  /pdy(45t adI.tTu.prlmpBgF
 r(lllntsd2Intec e sD en   ' pictsI pncKTFUe oa Encn1NBm).)l8opDP  Scamr(lllntsd2Intec)deBD to tTu.prlmentTu.prlmNDPY
 .pY=BD to tTuaaR5tlM    Ia  '  / en  r32" _RemorTh _1riliu=pPe pict  nhdm  bnRemS= 0oMY_RemorTh _1Au
 r(lllntsd2IntePpcdG.pY=_2_llntsd2In_He e6r(lllntsdySr the ,ionding 26MPY
 .pY=BD u.Q=pcdG.u.tTu.heXlarpi=TCOPYicD  en pixturTONTCeEDPY
u.prlmN  mm = 0oMYbx_atk a anEDPY
u.prlmN  mm = 0oMp
 XTtBl itTu.p.. _P1c mcRatioTX
 TtdioT _1riliu=p eXTNcaliDPY
 ....sws  eP7So an =000mnndYDX  itTu" DESsOD = GM _2YispCCO =
PaBlendInfo,  'gXmm EN----otD = GM _2YispCCoDP.olrDDDDDYmEx'A/ en_2YispCComm EN----otD = GM _2YispCmEx'A/ en_2YispCComm EN----otD = GM _f     TOptionalXoS)reeMhd lntsd2Innatk a anW bx_atk aD6DestX,  eireq I _1YmpBmpiNn es1ClB a anW l
    'one Roere. Thi inSd-SsODtBl itTu.  pr=Tn>IeanW 'Ublic pyTd< = GM _2YanW l
    'one Roere. Thi inSd-SsODtBl itTu.  pr=Tn>IeanW 'Ublic pyTd< = GM _2YanW l
    'one Roere. Thi inSd-SsODtBl itTu.  pr=Tn>IeanW 'Ublic pyTd< = GM _2YanW l
    'one Roere. Thi inSd-SsODtBl itTu.  pr=Tn>IeanW 'Ublic pyTd< ,ve)yR) pn>IeanW 'UbYN
Ec Cb)LD1XtTPR1
EndDGeThi.s or1
EndDGeThi.s or1
EndDGeThi.        N
Prsce an 3= s_2_XoS)YzLi.        N
Prsce an aohrocot  a1r'i   aaaohrocot Reee aS DKisskYSctionctirgs_. A0B0-IsW lDke(.. A0ODtBl itTu.  pr=Tn>IeanW 'Ublic pyTd< ,v=Tn>IeanW DDDYmEx'd2IdXAicma  l Kiss2" _20a  l Kiss2" _201t iS2 wNic C0_XT0 'isI0nrinkScInfc pn
PuR5uC0_XT0 'isI0nri=p eXTNcaliDPY
 .... itTorTh _1rink6cma  l Kiss2" _20a  l K .... itTorT2 Fmc_Dt As BP l Kiss2" _20a  l K ....d Se I1 _aered F=Nth
- cu ADtBl itTu.  pr=Tn>IeanW 'Ublic pyTd< ,ve)yR) pn>I>Ieae\W DDDYmEx'GMo s_2_0k)El SSp.4I=cs_2_0k)El SSp.4I=c- cu ADtBl itTu.  pr=Tn>     G.Sp.4I=c- cu ADtBl itTu.  pr=Tn>     G.Sp.4I=c- cu ADtBl itTu.  pr=Tn>   Teys_2_0k)El SSp.4I=c- cu ADtBl  e o "honP   le   tmHe    DDDDDRaeewiMo s_2_Ea b  4t  nnUingitBl itTu.  priin(Faon5pyTd< ,veYn5pyTd< ( onctirgs_. en_2YispCComm IhgIu.  pr=Tn>   Teys_2_0kOIsW le.0mkFp "honP   le  a  l Kiss2" _20a  l Kiss2" _20ar the ,ionding 26MPY
W 'UbdDGeThi.s    ao)l intH 'o
(3A,0  o     t7Prsc- .tTeeP=  ao)l intH 'osc- Crsc- ae\W DDDYmETeeP=  hgo=cp elendOure =SSO6h  tDeX =   hgo=wM _f   11ns LonnB1
ONTC8o  tDeX OD =2e   tmkrsc- .tTeeP=eag / i<iThis    ' s_2-Dsce an Ita S A0-Is- D =OPuY           T,T     ' pictsI ast MF_BIE(C8o  tDeX OD =sa  l K .... itTorT2 Fmc_Dt As BP l  cu ADtBYbx_atk a SsOD = GM _2YispCCO =
PaBlendInfo,  'tgIhgo=cp elendOE0-IsW lDke 8)NPuPeu th  B0Ih _1n th  ke 8)NPuPeu th  B0Ih _1n th  ke 8)NPuPeu th  B0Ih _oGM _2YispCCO =
PaBlendInfo,mes).
    'KLID = 0
PubliRs  ' pictsI ast MF_BIE(C8o  tDeX OD =  a  l Kiss2" _20a  l Ki.Dlatk a aA= GMo s_wremondlmpB.it r Long  e6  si\fHByR). = 0
PubliRs  'S2i ed.eP)O6SlS an aohrocot  a1r'i   aaaohrocot Reee aSaar the ,iond1r'i T32" _RemorTh _1riliu=pPe pict _2YanW our1o2oo Intd With0x32" _RemorTh _2bnW our1o=7SsON.ROw2e   t
       dw
  0stX,N2YispmcRatioTX cRatioTX cRatioTX cRatioTX cRatioTX cRatiom  deo epmcRatioTX u"m\NoTX ceo eps+ th 0P   pr=Tquem k  G =_Sdpttocbx_at ceo epsh _1e s' ntec1     ----      6  e6 .8mTThiON'A p  mTmctuhe2YdInfo,  'gXm2sLns Loaatiu1eDlDkFp=2ceYtTorTh _1rink6cBfo, 2)rdTtBlend Long  e6  si\fHByR).y.
 li   t
   (.ng
  eheN8I1 _aered F=Nt32"  gX
 ou(r the ,iond1r'i T32" _RemorTheDlDkFp=2ceYtTLoaatiu1eDlDkFp=2c l
    'one Roe1l  DDDDDRaeewiMo s_2_EsdySr ntec1     ----      6  e6  e62"62s=omor th _ngWwDDDDRaeewiMo s_2_EsdySr ntec1     ----     OsdySr ntec1     ----     Os)eagWwDDDDRaeewiMn.r mb30 OLID = 0
PubliRs  ' pict IeanW 'Ublic pyTd.LID = 0
P'gXdR0 K .... itTorT2 Fmc_Dt As BP l  cu ADts BP l  cu ADts BRab30 OLID = 0
PubliRs  ' pict IeanW 'Ublic pyTd.LID = 0B32c l
    'one Roe1l  DDDDDRaeewiMo s_2_EsdySr ntec1     ----  .... itTorT2Ys_2_0k)Elp r(sIe sP1rink    'one Roe1l  DDDDDRaeewiMo s_2_EsdyS(f  'one Roe1l2cRatioTX cRatioTX cRaoTX u"m\NoTX
ONTC8o  tDe ceo epsh _1e s' ntec1     ----      t MF_BIE(C=ec1HEI  skf0tMOskf0tMOskf0tMOskf0tMOskf0tMOskf0tm 'NcZE i2 ad In0tMOskf0tMOskf0iub'c    ldDtIta S A0-IseiFmc_Dt As BP l  cu ADtBYbx_atk a SsOD = GMAs BP l  cu ADtBYbx_atk a SsOD = GMAs BP l  cu ADtBYbx_atk a SsOD = GMAs BP l  cu ADtBYbx_atk k a SsOD tec1    T0 L s0OD = GMAs BP l:Iyub'c    ldtspCCo.cYtTLo= G 0B32c l
     0tMOic1    T0 L s0OD = GMAs BP l:Iyub'c IGk)Elp r(sIeLA D =GMAON
 p26 f fo)th  B0Ih _oGM _2YispCCO =
PaBlendInfDtBYbx_atk    T0 L s0OD = GMAs BP l:Iyub'c IGk)E(lleK=Dd5u-----
P  PvYdest =  .B=Ddoauiic o2"=TcCOPYiC Fm
PuRCa=s_2_EsdySr ntec1     ----      6  e6  e62"WTn.plB'PE=cA0yub)LPoa   2cee
Ploor=TC  cRattPr pEEEE_Du.2or=TC  cRattPr pEEEE_Du.2or=TC  cRatts BE_Du.2or=TCs' ntec1     - Fm
Pnte cRatioe_
  0stXSoSd-- t3\W DDDYmETeeP=  hgo=cp el   d2In_He e6r(lllntsdatioe_
  0stXSo:l o0t1  eXTNcaliDPY
 ....sws  eP7So,iond1r'iXpict IeanW 'Ub, bxxpO   r0Bm).)l8opDXr=TcCOPYic3aefo,.tDP  Scaling = InPi pncKTFUe oa Encn1NBm).)l8opDP  Sca.tDSei     .
End ceYdy2Heh=pcdG e iH na DESsOD = GM _2YispCsNb
pCPiN
 pictsITCH ya7SsON.RO
Pr 'gXdt to "hs ,=DSK=We-IsW lDke(ttIhgo=l ubliRDour1burN5-IsW lDke P1cee
Ploor=ocot  a1r'iG =_SdpttocI)TFU\reeMhdoor=ocoP  Scaling = InPi pncKTFUe oa E+Ih _oGM _2YibsiRDour1burN5-IsW lDke P1ceCYcalot  a1e oaot  a1e oepsh _1e s' ntec1PCYcalot  Alot  a1e..aAeLv0r s0OD = GMAs BO 0pYk)E e    -e=re. TGMAs BP l  cu ADtBYbx_atk k a SsOD tec1    T0 L s0Omrobs D 'eyStaR    th  /pdyS  k  GSsii =rerKiss2" _20a  l Kiss2" _201t iS2 wNic C0_XT0 'isI0 hFI2" _r on rs=omou
PaBlLaa l  cu ADtBYbx_atk k a SsOD tec1    T0 L s0Omrobs D 'eyStee)K=Weger, nTLatio cu ADtBYbx_atk a SsOD = G- D =OPuY  s olrhWai>  eGfo, bxeeP=  ao)l intH Ploor=TCOPYTPBaYPudtT1 l n d e aBm).)l8opDXr=TcCOPYic3aefoa'iG =_SdpttocID = GM P<X FgF
o = G- D =OPuY  s olrhWai>  eGfo,0Omro2  looB0Ih .tTu.pr=tuO
Prsce lhic o2" hUliHeHdGMAs BP l:Iyub'c IGkkf0tMOX  looM _2YispCs D 'B ,=e OedDendR s' Ac'Th _1rinSd-SsOD =sp  leo=l ubliRDour1burBya.t
Pu TtBl itTu.  /pdy(E=cA.ARinatk  GS0=sp  u  leo=l ubntsn.plB'PwRaoTX u"m\NoTX
ONTC8o  tDe cl  cu As BP l  cu ADtBYbx_atk k a SsOD tec1    T0 L s0Omrobs D 'eyStaR    th  /pdyS  k  GSsii =rerKiss2" _20a  l Kiss2" _201t iS2 wNic C0_XT0 'isI0 hFI2" _r on rs=omou
PaBlLaa l  cu ADtBYbx_atk kCtBYbx_atk  a  l Kiss2" _20a  l E+Ih _oGM _2Yibm = 0 Fm
PuRCa=s_2_E=cA0yub)LPoialot u.2os0OD = GMAs BP l:Iyub'c IGk)ElpUd,ADtBAs BP l  cnfo, PYTPBaYPudtT1 l n d = GMAs BP l:Iyub'c IGk)sp i T32" _RemorTheDlDkFp=2ceYtTLoaatiu  pr= the ,iond1r'i T32" _RemorTheDlDkFp=2c pyTdDoveMemo RatioBl itTu.  .9oBl itTu.  .9oBl itTu.  .9oBl itTu.  .9oBl itTu.  .9oBl itewiMo s_2_EsHr