DATETIMEPICKER DONT ON PEUT MODIFIER LA PROPRIÉTÉ BACKCOLOR

Imports System
Imports System.ComponentModel
Imports System.Drawing
Imports System.Windows.Forms

Public Class MonDTP
    Inherits DateTimePicker

    Private m_backBrush As SolidBrush

    Public Overrides Property BackColor() As Color
        Get
            Return MyBase.BackColor
        End Get
        Set(ByVal Value As Color)
            If Not m_backBrush Is Nothing Then
                m_backBrush.Dispose()
            End If
            MyBase.BackColor = Value
            m_backBrush = New SolidBrush(Me.BackColor)
            Me.Invalidate()
        End Set
    End Property

    Protected Overrides Sub WndProc(ByRef m As Message)
        Const WM_ERASEBKGND As Int32 = &H14

        If m.Msg = WM_ERASEBKGND Then
            Dim g As Graphics = Graphics.FromHdc(m.WParam)
            If m_backBrush Is Nothing Then
                m_backBrush = New SolidBrush(Me.BackColor)
            End If
            g.FillRectangle(m_backBrush, Me.ClientRectangle)
            g.Dispose()
        Else
            MyBase.WndProc(m)
        End If
    End Sub

    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing AndAlso Not m_backBrush Is Nothing Then
            m_backBrush.Dispose()
        End If
        MyBase.Dispose(disposing)
    End Sub

End Class