Private Sub SetSettings()
 
        On Error Resume Next
 
        Dim settings As String = String.Empty
        For idx As Integer = 0 To PlanningGuideDataDataGridView.Columns.Count - _
          1
            settings += PlanningGuideDataDataGridView.Columns( _
            idx).DisplayIndex.ToString()
            settings += "/"
            settings += PlanningGuideDataDataGridView.Columns( _
              idx).Width.ToString
            settings += "$"
        Next
 
        My.Settings.PlanningGuideDataDataGridView_settings = settings
        My.Settings.GroupBox_Settings = GRP_hide
 
    End Sub
 
    Private Sub GetSettings()
 
        On Error Resume Next
 
        If My.Settings.PlanningGuideDataDataGridView_settings <> String.Empty Then
            Dim settings() As String = _
              My.Settings.PlanningGuideDataDataGridView_settings.Split("$"c)
            For idx As Integer = 0 To _
            PlanningGuideDataDataGridView.Columns.Count - 1
                Dim sv() As String = settings(idx).Split("/"c)
                PlanningGuideDataDataGridView.Columns(idx).DisplayIndex = CInt( _
                  sv(0))
                PlanningGuideDataDataGridView.Columns(idx).Width = CInt(sv(1))
            Next
        End If
 
End Sub

        'prüfen ob es sich um eine neuere Version Ihrer Anwendung handelt
        If My.Settings.Update = False Then
            'einstellungen übernehmen
            My.Settings.Upgrade()
            My.Settings.Update = True
            My.Settings.Save()
        End If