...
      For Each Col As DataGridViewColumn In dgv.Columns
        If Col.Visible = True Then
          Me.cbSpaltenname.Items.Add(Col.HeaderText)
 
          Debug.Print(Col.HeaderText.ToString & " " & _
                      Col.Index.ToString & " " & _
                      Col.DisplayIndex.ToString & " " & _
                      Col.Name.ToString)
 
 
        End If
      Next
      ...