public extern static Int32 GetThemeEnumValue(IntPtr hTheme, int iPartId, int iStateId, int iPropId, out int piVal);

Declare Function GetThemeEnumValue Lib "uxtheme.dll" (TODO) As TODO

Public Shared Function GetThemeEnumValue(hTheme As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef piVal As Integer) As Int32