Private Sub Form_Load()
 
Dim Pfad1 As String
Dim Pfad2 As String
 
    Pfad1 = GetSetting("MeinProgramm", "Verzeichnisse", "Pfad1", "")
    Pfad2 = GetSetting("MeinProgramm", "Verzeichnisse", "Pfad2", "")
 
End Sub
 
 
Private Sub cmdSavePfade_Click()
 
    Call SaveSetting("MeinProgramm", "Verzeichnisse", "Pfad1", txtPfad1.Text)
    Call SaveSetting("MeinProgramm", "Verzeichnisse", "Pfad2", txtPfad2.Text)
 
End Sub