Attribute VB_Name = "ScrollTM"
'*****************************************************************************
'*
'* Copyright (c) 1998, KL GROUP INC.  All Rights Reserved.
'* http://www.klg.com
'*
'* This file is provided for demonstration and educational uses only.
'* Permission to use, copy, modify and distribute this file for
'* any purpose and without fee is hereby granted, provided that the
'* above copyright notice and this permission notice appear in all
'* copies, and that the name of KL Group not be used in advertising
'* or publicity pertaining to this material without the specific,
'* prior written permission of an authorized representative of
'* KL Group.
'*
'* KL GROUP MAKES NO REPRESENTATIONS OR WARRANTIES ABOUT THE SUITABILITY
'* OF THE SOFTWARE, EITHER EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED
'* TO THE IMPLIED WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
'* PURPOSE, OR NON-INFRINGEMENT. KL GROUP SHALL NOT BE LIABLE FOR ANY
'* DAMAGES SUFFERED BY USERS AS A RESULT OF USING, MODIFYING OR
'* DISTRIBUTING THIS SOFTWARE OR ITS DERIVATIVES.
'*
'*****************************************************************************
Option Explicit

Type Temps
    NDays As Integer
    Lo As Integer
    Hi As Integer
End Type

Public Type POINTAPI
    X As Integer
    y As Integer
End Type

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

Public Declare Function CreatePen Lib "GDI" (ByVal nPenStyle As Integer, ByVal nWidth As Integer, ByVal crColor As Long) As Integer
Public Declare Function DeleteObject Lib "GDI" (ByVal hObject As Integer) As Integer
Public Declare Function GetDC Lib "user" (ByVal hWnd As Integer) As Integer
Public Declare Sub InvertRect Lib "user" (ByVal hDC As Integer, lpRect As RECT)
Public Declare Function Rectangle Lib "GDI" (ByVal hDC As Integer, ByVal X1 As Integer, ByVal Y1 As Integer, ByVal X2 As Integer, ByVal Y2 As Integer) As Integer
Public Declare Function ReleaseDC Lib "user" (ByVal hWnd As Integer, ByVal hDC As Integer) As Integer
Public Declare Function SelectObject Lib "GDI" (ByVal hDC As Integer, ByVal hObject As Integer) As Integer
Public Declare Function SetROP2 Lib "GDI" (ByVal hDC As Integer, ByVal nDrawMode As Integer) As Integer