 Function LineTo Lib "gdi32" (ByVal hdc As Long, ByVal x As
 Long, ByVal y As Long) As Long
Private Const PS_SOLID = 0

' Create an Image List
Private Declare Function ImageList_Create Lib "comctl32.dll" ( _
        ByVal cx As Long, _
        ByVal cy As Long, _
        ByVal fMask As Long, _
        ByVal cInitial As Long, _
        ByVal cGrow As Long _
    ) As Long
Private Const ILC_MASK = 1&amp;
Private Const ILC_COLOR = 0&amp;
Private Const ILC_COLORDDB = &amp;HFE&amp;
Private Const ILC_COLOR4 = &amp