DateTimePicker en DataGridView

[juanutcm]

Código:

Public Overrides ReadOnly Property DefaultNewRowValue() As Object
          Get
              ' Use the current date and time as the default value.
              Return DateTime.Now
          End Get
      End Property
 
  End Class
 
  Class CalendarEditingControl
      Inherits DateTimePicker
      Implements IDataGridViewEditingControl
 
      Private dataGridViewControl As DataGridView
      Private valueIsChanged As Boolean = False
      Private rowIndexNum As Integer
 
      Public Sub New()
          Me.Format = DateTimePickerFormat.Short
      End Sub
 
      Public Property EditingControlFormattedValue() As Object _
          Implements IDataGridViewEditingControl.EditingControlFormattedValue
 
          Get
              Return Me.Value.ToShortDateString()
          End Get
 
          Set(ByVal value As Object)
              If TypeOf value Is String Then
                  Me.Value = DateTime.Parse(CStr(value))
              End If
          End Set
 
      End Property
 
      Public Function GetEditingControlFormattedValue(ByVal context _
          As DataGridViewDataErrorContexts) As Object _
          Implements IDataGridViewEditingControl.GetEditingControlFormattedValue
 
          Return Me.Value.ToShortDateString()
 
      End Function
 
      Public Sub ApplyCellStyleToEditingControl(ByVal dataGridViewCellStyle As _
          DataGridViewCellStyle) _
          Implements IDataGridViewEditingControl.ApplyCellStyleToEditingControl
 
          Me.Font = dataGridViewCellStyle.Font
          Me.CalendarForeColor = dataGridViewCellStyle.ForeColor
          Me.CalendarMonthBackground = dataGridViewCellStyle.BackColor
 
      End Sub
 
      Public Property EditingControlRowIndex() As Integer _
          Implements IDataGridViewEditingControl.EditingControlRowIndex
 
          Get
              Return rowIndexNum
          End Get
          Set(ByVal value As Integer)
              rowIndexNum = value
          End Set
 
      End Property
 
      Public Function EditingControlWantsInputKey(ByVal key As Keys, _
          ByVal dataGridViewWantsInputKey As Boolean) As Boolean _
          Implements IDataGridViewEditingControl.EditingControlWantsInputKey
 
          ' Let the DateTimePicker handle the keys listed.
          Select Case key And Keys.KeyCode
              Case Keys.Left, Keys.Up, Keys.Down, Keys.Right, _
                  Keys.Home, Keys.End, Keys.PageDown, Keys.PageUp
 
                  Return True
 
              Case Else
                  Return False
          End Select
 
      End Function