Dim sButtonName As String = "btnOpen"
 
If DataGridView1.CurrentCell.ColumnIndex = _
  DataSet1.DtDaten.DateianhangColumn.Ordinal Then
    Dim btn As New Button
    With btn
        .Dock = DockStyle.Right
        .Name = sButtonName
        .Text = "..."
        .Width = 25
    End With
 
    If Not DataGridView1.EditingPanel.Controls.ContainsKey(btn.Name) Then
        DataGridView1.EditingPanel.Controls.Add(btn)
    End If
 
    AddHandler btn.Click, AddressOf btn_click
    btn.BringToFront()
 
Else
 
    If DataGridView1.EditingPanel.Controls.ContainsKey(sButtonName) Then
        DataGridView1.EditingPanel.Controls.RemoveByKey(sButtonName)
    End If
 
End If