public extern static Int32 CloseThemeData(IntPtr hTheme);

Declare Function CloseThemeData Lib "uxtheme.dll" (ByVal hTheme As IntPtr) As Int32

Function CloseThemeData(ByVal hTheme As IntPtr) As Int32