Attribute VB_Name = "modMain"

'*************************************************
'
' Alvin Operating Shell Pre-Alpha 1.0.0.0
'
' An all-new desktop shell project, rewritten
' from the ground up with a whole new UI.
'
' By Atesh Yurdakul, A.A. Fussy, and Omar Rizwan
'
'*************************************************

Public Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type

Public Type POINTAPI
   X As Long
   Y As Long
End Type

Public Const COLOR_ACTIVECAPTION = 2
Public Const SM_CXDLGFRAME = 7
Public Const SM_CYDLGFRAME = 8

Public Declare Function GetWindowRect Lib "user32" _
    (ByVal hwnd As Long, lpRect As RECT) As Long
    
Public Declare Function GetSysColor Lib "user32" _
    (ByVal nIndex As Long) As Long
    
Public Declare Function GetSystemMetrics Lib "user32" _
    (ByVal nIndex As Long) As Long

Public Declare Function DrawFocusRect Lib "user32" _
    (ByVal hdc As Long, lpRect As RECT) As Long
    
Public Declare Function ClientToScreen Lib "user32" _
    (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
    
Public Declare Function GetDC Lib "user32" _
    (ByVal hwnd As Long) As Long
    
Public Declare Function ReleaseDC Lib "user32" _
    (ByVal hwnd As Long, ByVal hdc As Long) As Long
    

Sub Main()
    Load frmBack: Load frmDesktop: Load frmControlBar: _
    frmSplash.Show
End Sub