Private Sub TBLEVELSteuerung()
        Dim Modus
        Dim sw As IO.StreamWriter
 
 
        If Not TBLEVEL Is Nothing Then
            Select Case TBLEVEL.Value
 
                Case 0
                    Dim neuerlevel As Integer = 0
                    Dim neuerText As String
 
                    AllLines = AllLines.Replace("name = ""Modus"" value = """ & _
                      Intlevel & """", "name = ""Modus"" value = """ & _
                      neuerlevel & """")
                    Intlevel = neuerlevel
                Case 1
                    Dim neuerlevel As Integer = 1
                    Dim neuerText As String
 
                    AllLines = AllLines.Replace("name = ""Modus"" value = """ & _
                      Intlevel & """", "name = ""Modus"" value = """ & _
                      neuerlevel & """")
                    Intlevel = neuerlevel
                Case 2
                    Dim neuerlevel As Integer = 2
                    Dim neuerText As String
 
                    AllLines = AllLines.Replace("name = ""Modus"" value = """ & _
                      Intlevel & """", "name = ""Modus"" value = """ & _
                      neuerlevel & """")
                    Intlevel = neuerlevel
                Case 3
                    Dim neuerlevel As Integer = 3
                    Dim neuerText As String
 
 
                    AllLines = AllLines.Replace("name = ""Modus"" value = """ & _
                      Intlevel & """", "name = ""Modus"" value = """ & _
                      neuerlevel & """")
                    Intlevel = neuerlevel
                Case 4
                    Dim neuerlevel As Integer = 4
                    Dim neuerText As String
 
 
                    AllLines = AllLines.Replace("name = ""Modus"" value = """ & _
                      Intlevel & """", "name = ""Modus"" value = """ & _
                      neuerlevel & """")
                    Intlevel = neuerlevel
 
            End Select
        Else
        End If
 
    End Sub

Private Sub Form1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) _
  Handles MyBase.Closed
        Protokolldatei("beendet: " & Now.ToLongTimeString)
        Dim sw As IO.StreamWriter
        Dim TBLEVEL
        sw = New IO.StreamWriter("C:\Dokumente und Einstellungen\Kümper\Eigene" & _
          "Dateien\Visual Studio" & _
          "Projects\Beispiele\WindowsApplication3\bin\WindowsApplication3.exe." & _
          "onfig")
        sw.Write(AllLines)
        sw.Close()
    End Sub
 
End Class

 Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
   Handles MyBase.Load
        'ermitteln, wie der gewählte Level jetzt ist:
        Dim intPos As Integer
        Dim enc As System.Text.Encoding = System.Text.Encoding.GetEncoding(1252)
        Dim sr As IO.StreamReader
 
        sr = New StreamReader("C:\Dokumente und Einstellungen\Kümper\Eigene" & _
          "Dateien\Visual Studio" & _
          "Projects\Beispiele\WindowsApplication3\bin\WindowsApplication3.exe." & _
          "onfig")
 
        AllLines = sr.ReadToEnd
 
 
        sr.Close()
        TBLEVEL.Value = Intlevel
 
        intPos = AllLines.IndexOf("name = ""Modus"" value = ")
        If intPos >= 0 Then
            intLevel = CInt(AllLines.Substring(intPos + 24, 1))
        End If
 
 
 
 
 
    End Sub