Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
 
Public Class Form1
 
    Private _ini As CIni
    Private Const _INI_PATH As String = "C:\ini.txt"
 
    Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
        Dim bf As New BinaryFormatter
 
        Using fs As New IO.FileStream(_INI_PATH, IO.FileMode.Create, _
          IO.FileAccess.Write)
            '_ini serialisieren
            bf.Serialize(fs, _ini)
        End Using
 
 
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
      Handles Me.Load
 
        Dim bf As New BinaryFormatter
 
        Try
            'CIni ist bereits einmal serialisiert
            Using fs As New IO.FileStream(_INI_PATH, IO.FileMode.Open, _
              IO.FileAccess.Read)
                '_ini deserialisieren
                _ini = CType(bf.Deserialize(fs), CIni)
            End Using
 
            'Werte in ComboBox schreiben
            AddComboBox()
 
        Catch ex As IO.IOException
            ' CIni wured noch nie serialisiert ,_ini initalisieren und 
            ' Standardwerte einfügen
            _ini = New CIni
            _ini.Add("Relesase1", Date.Now.AddDays(-100).ToShortDateString)
            _ini.Add("Relesase2", Date.Now.ToShortDateString)
            'Werte in ComboBox schreiben
            AddComboBox()
        End Try
 
    End Sub
 
    Private Sub AddComboBox()
        For Each kvp As KeyValuePair(Of String, String) In _ini
            ComboBox1.Items.Add(kvp.Key & " " & kvp.Value)
        Next
    End Sub
End Class
 
<Serializable()> _
Public Class CIni : Inherits Dictionary(Of String, String)
 
End Class