Declare Function OpenThemeData Lib "uxtheme.dll" (hWnd As IntPtr, classList As String) As IntPtr
<DllImport("UxTheme.dll", CallingConvention:=CallingConvention.Cdecl, CharSet:=CharSet.Unicode)> _
Function OpenThemeData( ByVal hwnd As IntPtr, ByVal pszClassList As String) As IntPtr
End Function