[DllImport("uxtheme", ExactSpelling=true)]
public extern static int GetThemeSysBool(IntPtr hTheme, int iBoolId);
VB .NET Signature:
Declare Function GetThemeSysBool Lib "uxtheme.dll" (TODO) As TODO
<DllImport("uxtheme", ExactSpelling := True)> _
Public Shared Function GetThemeSysBool(hTheme As IntPtr, iBoolId As Integer) As Integer
End Function