'Hiermit speichere ich die Umgebungsvariablen in einer Datei
'Aufruf erfolgt über 
'SaveProfile(startup & "Profiles" & "\" & TextBox1.Text & ".dat", 
' Form10.ListView1)
 
    Private Sub SaveProfile(ByVal path As String, ByVal lv As ListView) 
        Dim f As New IO.FileStream(path, IO.FileMode.Create)
        Dim bf As New _
          System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        Dim l(lv.Items.Count - 1) As ListViewItem
        lv.Items.CopyTo(l, 0)
        bf.Serialize(f, l)
        f.Close()
    End Sub

'Hiermit lade ich die Umgebungsvariablen aus einer gespeicherten Datei
'Aufruf über LoadProfile(startup & "Profiles" & "\" & ComboBox1.Text, 
' Form10.ListView1)
 
    Private Sub LoadProfile(ByVal path As String, ByVal lv As ListView) 
        Dim f As New IO.FileStream(path, IO.FileMode.Open)
        Dim bf As New _
          System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
        lv.Items.Clear()
        lv.Items.AddRange(bf.Deserialize(f))
        f.Close()
    End Sub

'Hiermit möchte ich die aus der Datei geladenen Umgebungsvariablen übergeben,
'so dass sie für mein Programm gesetzt werden
'Ich lade die gespeicherte Datei und will dann die Variablen eine nach der 
' anderen setzen
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
        Form10.ListView1.Items.Clear()
        LoadProfile(startup & "Profiles" & "\" & ComboBox1.Text, _
          Form10.ListView1)
        For Each Item As ListViewItem In Form10.ListView1.Items
            For Each Subitem As ListViewItem.ListViewSubItem In Item.SubItems
Environment.SetEnvironmentVariable(Item.Text, Subitem.Text, _
  EnvironmentVariableTarget.Process)
            Next
        Next
    End Sub
 
'Leider funktioniert hier irgendetwas nicht.....