home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD150542162001.psc / basMain.bas next >
Encoding:
BASIC Source File  |  2001-02-16  |  1.4 KB  |  25 lines
  1. Attribute VB_Name = "basMain"
  2. ' DISCLAIMER (for public posting):
  3. ' This software is provided on an "as is, where is" basis, with no warranty whatsoever.
  4. ' As a condition of your using this software, you agree that Westinghouse Electric Company
  5. ' shall not be liable with respect to or as a result of such use.  Further, you agree to
  6. ' indemnify and hold Westinghouse harmless in the event a claim is made against
  7. ' Westinghouse with respect to or as a result of your use of the software.
  8.  
  9.  
  10. ' ******************************************************************************************************************
  11. ' DECLARATION OF PUBLIC CONSTANTS
  12. ' ******************************************************************************************************************
  13. Global Const VK_TAB = 9
  14.  
  15.  
  16. ' ******************************************************************************************************************
  17. ' DECLARATION OF PUBLIC API FUNCTIONS
  18. ' ******************************************************************************************************************
  19. ' For detecting if a tab or mouse click caused a control to receive focus
  20. ' (from MSKB article: http://support.microsoft.com/support/kb/articles/Q75/4/11.ASP)
  21. Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer
  22.  
  23. ' For getting the time in ticks (milliseconds) from a certain starting point
  24. Public Declare Function GetTickCount Lib "kernel32" () As Long
  25.