public extern static Int32 GetThemeBool(IntPtr hTheme, int iPartId, int iStateId, int iPropId, out int pfVal);

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

Public Shared Function GetThemeBool(hTheme As IntPtr, iPartId As Integer, iStateId As Integer, iPropId As Integer, ByRef pfVal As Integer) As Int32