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