Public Class frmSelectColumns
 
    Private _dgv As DataGridView
 
    Private _lbo As New CheckedListBox With {.Parent = Me, .Height = 300}
 
    Private btnOK As New Button With _
                  {.Parent = Me, .Top = 320, .Text = "OK", _
                   .DialogResult = Windows.Forms.DialogResult.OK}
 
    Private btnCancel As New Button With _
                  {.Parent = Me, .Top = 320, .Left = 100, .Text = "Cancel", _
                   .DialogResult = Windows.Forms.DialogResult.Cancel}
 
    ''' <summary>Datagridview für Spaltenauswahl</summary>
    Public Property dgv() As DataGridView
 
        Set(value As DataGridView)
 
            If value Is Nothing Then Exit Property
 
            _dgv = value
            _lbo.Items.Clear()
 
            For i As Integer = 0 To _dgv.Columns.Count - 1
                With _dgv.Columns(i)
                    _lbo.Items.Add(.Name)
                    _lbo.SetItemChecked(i, .Visible)
                End With
            Next i
 
        End Set
 
 
        Get
 
            For i As Integer = 0 To _dgv.Columns.Count - 1
                With _dgv.Columns(i)
                    .Visible = _lbo.GetItemChecked(i)
                End With
            Next i
            Return _dgv
 
        End Get
 
    End Property
 
End Class

    Using frmSelectCol As New frmSelectColumns
 
       With frmSelectCol
          .dgv = dgv
          If .ShowDialog = Windows.Forms.DialogResult.Cancel Then Exit Sub
          dgv = .dgv
       End With
 
    End Using