Public Class FilterForm
    Private _dgv As DataGridView
 
    Public Sub New(dgv As DataGridView)
        InitializeComponent()
        _dgv = dgv
 
        DGVF.EnableHeadersVisualStyles = False
        DGVF.AllowUserToAddRows = False
        DGVF.RowHeadersVisible = False
 
        For Each dgvc As DataGridViewColumn In _dgv.Columns
            Dim idx As Integer = DGVF.Columns.Add(dgvc.Name, dgvc.HeaderText)
 
            Dim dgvcf As DataGridViewColumn = DGVF.Columns(idx)
            dgvcf.SortMode = DataGridViewColumnSortMode.NotSortable
            If dgvc.Visible Then
                dgvcf.HeaderCell.Style.BackColor = Color.Green
            Else
                dgvcf.HeaderCell.Style.BackColor = Color.Red
            End If
        Next
    End Sub
 
    Private Sub DGVF_ColumnHeaderMouseClick(sender As Object, e As _
      DataGridViewCellMouseEventArgs) Handles DGVF.ColumnHeaderMouseClick
        Dim dgvc As DataGridViewColumn = _dgv.Columns(e.ColumnIndex)
        Dim dgvcf As DataGridViewColumn = DGVF.Columns(e.ColumnIndex)
        dgvc.Visible = Not dgvc.Visible
        If dgvc.Visible Then
            dgvcf.HeaderCell.Style.BackColor = Color.Green
        Else
            dgvcf.HeaderCell.Style.BackColor = Color.Red
        End If
    End Sub
End Class

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Using filter As New FilterForm(DataGridView1)
            filter.ShowDialog()
        End Using
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist