Private Sub BearbeitungsindexToolStripMenuItem_Click(sender As Object, e As _
  EventArgs) Handles BearbeitungsindexToolStripMenuItem.Click
        My.Settings.Bearbeitungsindex = _
        BearbeitungsindexToolStripMenuItem.Checked
        My.Settings.Save()
        My.Settings.Reload()
        If BearbeitungsindexToolStripMenuItem.Checked Then
            dgv.Columns(0).Visible = True
        Else
            dgv.Columns(0).Visible = False
        End If
    End Sub