C# Signatures:

[DllImport("uxtheme", ExactSpelling=true)]
public extern static Int32 DrawThemeBackground(IntPtr hTheme, IntPtr hdc, int iPartId,
   int iStateId, ref RECT pRect, ref RECT pClipRect);

[DllImport("uxtheme", ExactSpelling=true)]
public extern static Int32 DrawThemeBackground(IntPtr hTheme, IntPtr hdc, int iPartId,
   int iStateId, ref RECT pRect, IntPtr pClipRect);

VB Signatures:

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

<DllImport("UxTheme.dll", CallingConvention:=CallingConvention.Cdecl)> _
Function DrawThemeBackground(ByVal hTheme As IntPtr, ByVal hdc As IntPtr, _
   ByVal iPartId As Integer, ByVal iStateId As Integer, ByRef pRect As RECT, _
   ByRef pClipRect As RECT) As Integer
End Function

User-Defined Types:

RECT

Notes:

None.

Tips & Tricks:

Please add some!

Sample

'Draw a button in the Statusbar (check the website for the API calls)

Dim posX As Integer = Me.Width - 5 * 20

Dim g As Graphics = Graphics.FromHdc(New IntPtr(GetWindowDC(Me.Handle.ToInt32)))

'drawThemeBackground(openThemeData(Me.Handle, "Window"), g.GetHdc, 15, 1, New RECT(New Rectangle(posX, 5, 20, 20)), IntPtr.Zero)

drawThemeBackground(openThemeData(Me.Handle, "ExplorerBar"), g.GetHdc, 7, 1, New RECT(New Rectangle(posX, 6, 20, 20)), IntPtr.Zero)

Alternative Managed API:

TODO