'==============================================================================
'
'  Common Routines
'  Copyright (c) 1997-99 by PowerBASIC, Inc.
'
'  Declares for 32-bit Visual Basic
'
'==============================================================================

Declare Function Exist Lib "COMMON32.DLL" Alias "EXIST" (Filename As String) As Integer
Declare Function GetBValue Lib "COMMON32.DLL" Alias "GETBVALUE" (ByVal rgb As Long) As Long
Declare Function GetGValue Lib "COMMON32.DLL" Alias "GETGVALUE" (ByVal rgb As Long) As Long
Declare Function GetRValue Lib "COMMON32.DLL" Alias "GETRVALUE" (ByVal rgb As Long) As Long
Declare Function IsNT3 Lib "COMMON32.DLL" Alias "ISNT3" () As Long
Declare Function IsWin95 Lib "COMMON32.DLL" Alias "ISWIN95" () As Long
Declare Function IsWinNT Lib "COMMON32.DLL" Alias "ISWINNT" () As Long
Declare Function NetUserName Lib "COMMON32.DLL" Alias "NETUSERNAME" () AS STRING
Declare Function Processor Lib "COMMON32.DLL" Alias "PROCESSOR" () AS STRING

Decalre Sub CalcPageSize Lib "COMMON32.DLL" Alias "CALCPAGESIZE" (ByVal hDC As Long, Rows As Long, Columns As Long)
Declare Sub CenterWindow Lib "COMMON32.DLL" Alias "CENTERWINDOW" (ByVal hWnd As Long)
Declare Sub SplitPath Lib "COMMON32.DLL" Alias "SPLITPATH" (Source As String, Fldrive As String, Flpath As String, Filename As String)
