home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD149932152001.psc / API.bas next >
Encoding:
BASIC Source File  |  2001-02-15  |  414 b   |  11 lines

  1. Attribute VB_Name = "API"
  2. 'Used To Hide and SHow The Cursor
  3. Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
  4. Public Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
  5.  
  6. Public Const SND_FILENAME = &H20000
  7. Public Const SND_LOOP = &H8
  8. Public Const SND_SYNC = &H0
  9. Public Const SND_ASYNC = &H1
  10.  
  11.