Private Sub DataGridView_CellBeginEdit(sender As Object, e As System.Windows.Forms.DataGridViewCellCancelEventArgs)
If Me.DataGridView1.Focused AndAlso Me.DataGridView1.CurrentCell.ColumnIndex = 0 Then
Dim tmpRect As Rectangle = DirectCast(sender, DataGridView).GetCellDisplayRectangle(e.ColumnIndex, e.RowIndex, True)
dtpCell.Location = tmpRect.Location
dtpCell.Width = tmpRect.Width
dtpCell.Visible = True
End If
End Sub