Const Pfad = "SysMon.opt"
 
Private Sub Form_Load()
    Dim DateiNr As Integer
    Dim Text As String
    Dim Zeile
    DateiNr = FreeFile
    On Error GoTo Fehler1
    Open Pfad For Input As DateiNr
    Zeile = 0
    Do Until EOF(DateiNr)
    Zeile = Zeile + 1
    Input #DateiNr, Text
    If Zeile = 1 Then HDLaufw = Text
    If Zeile = 2 Then RAMOpt = Text
    If Zeile = 3 Then RAMGröße = Text
    If RAMGröße <> "" Then cmdRAM.Enabled = False
    Loop
Fehler1:
    Close DateiNr

Private Sub cmdÜbern_Click()
    Dim DateiNr2 As Integer
    Dim HDOpt, HDLauf
    Dim RAMOpt1, RAMOpt2, RAMGröße2
    DateiNr2 = FreeFile
    Open Pfad For Output As DateiNr2
    Print #DateiNr2, HDLauf & vbNewLine & RAMOpt1 & vbNewLine & RAMGröße2
    Close DateiNr2
    MsgBox prompt:="Einstellungen werden erst nach dem nächsten Start" & _
      "wirksam.", Buttons:=vbInformation, Title:="Hinweis"
    Unload Form2
End Sub