public extern static int IsThemeActive();

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

Public Shared Function IsThemeActive() As Integer

        ret = IsThemeActive(); // Return 1 if active else 0.