 Function GetThemeInt Lib "uxtheme.dll" _
   (ByVal hTheme As Long, ByVal iPartId As Long, _
    ByVal iStateId As Long, ByVal iPropId As Long, _
    piVal As Long) As Long
Private Const PROGRESSCHUNKSIZE = 2411
Private Const PROGRESSSPACESIZE = 2412

Private Const S_OK = 0

Public Enum EVPRGAppearanceConstants
   [EVPRGFlat]
   [EVPRG3DThin]
   [EVPRG3D]
End Enum
Public Enum EVPRGBorderStyleConstants
   [EVPRGNone]
   [EVPRGInset]
   [EVPRGRaised]
End Enum
Public Enum EVPRGPictureModeConstants
   [EVPRGStr