Attribute VB_Name = "SafeArray"
'*****************************************************************************
'*
'* 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

'Declare a function to get the clock ticks since
' windows was started in milliseconds.
'NOTE:  This value rolls over every 47 days.
#If Win32 Then
    Declare Function GetTickCount Lib "Kernel32" () As Long
#Else
    Declare Function GetTickCount Lib "User" () As Long
#End If