home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 1_2002.ISO / Data / Zips / CODE_UPLOAD16103362001.psc / modDXFunctions.bas < prev    next >
Encoding:
BASIC Source File  |  2001-03-07  |  417 b   |  19 lines
  1. Attribute VB_Name = "modDXFunctions"
  2. Option Explicit
  3.  
  4. Public Const PI = 3.14
  5. Public Const Rad = PI / 180
  6.  
  7. Public Enum COLORKEYOPTIONS
  8.     None
  9.     Black
  10.     White
  11.     Magenta
  12. End Enum
  13. Private Function ExclusiveMode() As Boolean
  14.     Dim lngTestExMode As Long
  15.     
  16.     '// This function tests if we're still in exclusive mode
  17.     lngTestExMode = mDDraw.TestCooperativeLevel
  18.     
  19.     If . o,EEode(oad7C