Imports System.ComponentModel

<DesignerCategory("Code")>
Public Class NullableDateTimePicker : Inherits DateTimePicker

    <Bindable(True)>
    Public Shadows Property Value As Date?
        Get
            If Not Checked Then Return Nothing
            Return MyBase.Value
        End Get
        Set(ByVal value As Date?)
            If value.Equals(Me.Value) Then Return
            Checked = value.HasValue
            If value.HasValue Then MyBase.Value = value.Value
        End Set
    End Property

End Class