Private Sub AddCurrentKey(ByVal name As String, ByVal path As String)
        Dim key As RegistryKey = Registry.LocalMachine.OpenSubKey( _
          "Software\Microsoft\Windows\CurrentVersion\Run", True)
        key.SetValue(name, path)
        key.Close()
    End Sub

    Private Sub formGeburtstagserinnerer_Load(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles MyBase.Load
        pmaxauslesem()
        If pmax = 0 Then
            dtpGeburtstag.Value = Now()
            ReDim pliste(-1)
        Else
            ReDim pliste(pmax - 1)
            dtpGeburtstag.Value = Now()
            auslesen()
            anzeigen()
            NächsterGeburtstag()
        End If
        Dim rStream As New FileStream("Einstellungen.dat", _
          FileMode.OpenOrCreate, FileAccess.Read)
        Dim binReader As New BinaryReader(rStream)
        If (rStream.Length > 0) Then
 
            If binReader.ReadString() = "True" Then
                tsmAutostart.Checked = True
            End If
            If binReader.ReadString() = "True" Then
                tsmTaskleiste.Checked = True
            Else
                niSystemIcon.Visible = False
            End If
        End If
        binReader.Close()
        rStream.Close()
        dgvGeburtstagAusgabeAnpassen()
        NächsterGeburtstag()
        TaskleistenIconInitialisieren()
    End Sub

    Private Sub pmaxauslesem()
 
        If File.Exists("pmax.txt") Then
            Dim reader As StreamReader = File.OpenText("pmax.txt")
            pmax = Convert.ToInt16(reader.ReadLine())
            reader.Close()
        End If
 
    End Sub

    Private Pfad As String = "Geburtstage.dat"
 
    Private Sub auslesen(Optional ByVal umZuErweitern As Boolean = False)
        Dim rStream As New FileStream(Pfad, FileMode.OpenOrCreate, _
          FileAccess.Read)
        Dim binReader As New BinaryReader(rStream)
        If (rStream.Length > 0) Then
            If umZuErweitern = True Then
                For i As Integer = 0 To pmax - 2
                    With pliste(i)
                        .Nachname = binReader.ReadString()
                        .Vorname = binReader.ReadString()
                        .Geburtstag = Convert.ToDateTime(binReader.ReadString())
                        .Alter = binReader.ReadString()
                    End With
                Next i
            Else
                For i As Integer = 0 To pmax - 1
                    With pliste(i)
                        .Nachname = binReader.ReadString()
                        .Vorname = binReader.ReadString()
                        .Geburtstag = Convert.ToDateTime(binReader.ReadString())
                        .Alter = binReader.ReadString()
                    End With
                Next i
            End If
        End If
        binReader.Close()
        rStream.Close()
    End Sub