Dim d As DataGridView = DirectCast(Panel1.Controls(0), DataGridView)
Dim c As DataGridViewColumn
c = DirectCast(d.Columns(d.CurrentCell.ColumnIndex), DataGridViewColumn)
doc = New HtmlAgilityPack.HtmlDocument
doc.Load(dbpath)
Dim gridid As Integer = dids(cmbdgvs.SelectedIndex)
Dim nod As HtmlAgilityPack.HtmlNode = doc.DocumentNode.SelectSingleNode("//dgvs//dgv[@id='" & gridid & "']//coll")
For Each h As HtmlAgilityPack.HtmlAttribute In nod.Attributes
If h.Value.ToString.ToLower = c.HeaderText.ToString.ToLower Then
nod.Attributes.Remove(h)
doc.Save(dbpath)
gd(cmbdgvs.SelectedIndex)
Exit Sub
End If
Next