Visual Basic

    Protected Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)<br />
        ' open theme data<br />
        Dim hTheme As IntPtr = IntPtr.Zero<br />
        hTheme = NativeMethods.OpenThemeData(hTheme, "EDIT")<br />
<br />
        ' make sure we have a valid handle<br />
        If Not hTheme = IntPtr.Zero Then<br />
            ' get a graphics object the UxTheme can draw into<br />
            Dim hdc As IntPtr = e.Graphics.GetHdc()<br />
<br />
            ' get the draw and clipping rectangles<br />
            Dim dRect As RECT = RECT.FromRectangle(Me.ClientRectangle)<br />
            Dim cRect As RECT = RECT.FromRectangle(Me.ClientRectangle)<br />
<br />
            ' draw the themed background<br />
            Dim ret As Integer = NativeMethods.DrawThemeBackground(hTheme, hdc, 1, 1, dRect, cRect)<br />
<br />
            ' clean up resources<br />
            e.Graphics.ReleaseHdc(hdc)<br />
        End If<br />
<br />
        ' close the theme handle<br />
        NativeMethods.CloseThemeData(hTheme)<br />
    End Sub<br />
<br />
'The NativeMethods-Class<br />
<br />
Public Class NativeMethods<br />
    <DllImport("UxTheme.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _<br />
    Friend Shared Function OpenThemeData(ByVal hwnd As IntPtr, <MarshalAs(UnmanagedType.LPTStr)> ByVal pszClassList As String) As IntPtr<br />
    End Function<br />
<br />
    <DllImport("UxTheme.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _<br />
    Friend Shared 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<br />
    End Function<br />
<br />
    <DllImport("UxTheme.dll", CharSet:=CharSet.Auto, SetLastError:=True)> _<br />
    Friend Shared Function CloseThemeData(ByVal hTheme As IntPtr) As Integer<br />
    End Function<br />
End Class<br />
<br />
'The RECT-Class<br />
<br />
Imports System.Runtime.InteropServices<br />
<br />
<StructLayout(LayoutKind.Sequential)> _<br />
Public Class RECT<br />
    Public left As Integer<br />
    Public top As Integer<br />
    Public right As Integer<br />
    Public bottom As Integer<br />
<br />
    Public Sub New(ByVal left As Integer, ByVal top As Integer, ByVal right As Integer, ByVal bottom As Integer)<br />
        Me.left = left<br />
        Me.top = top<br />
        Me.right = right<br />
        Me.bottom = bottom<br />
    End Sub<br />
<br />
    Public Shared Function FromRectangle(ByVal rect As Rectangle) As RECT<br />
        Return New RECT(rect.Left, rect.Top, rect.Right, rect.Bottom)<br />
    End Function<br />
<br />
    Public Shared Function FromXYWH(ByVal x As Integer, ByVal y As Integer, ByVal width As Integer, ByVal height As Integer) As RECT<br />
        Return New RECT(x, y, x + width, y + height)<br />
    End Function<br />
<br />
    Public Function ToRectangle() As Rectangle<br />
        Return New Rectangle(Me.left, Me.top, Me.right - Me.left, Me.bottom - Me.top)<br />
    End Function<br />
End Class