Private Sub TBLEVELSteuerung()
        Dim Modus
        If TBLEVEL Is Nothing Then
            Select Case TBLEVEL.Value
                Case 0
                    Modus = 0
                Case 1
                    Modus = 1
                Case 2
                    Modus = 2
                Case 3
                    Modus = 3
                Case 4
                    Modus = 4
            End Select
        Else
        End If
    End Sub

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
	<system.diagnostics>
		<switches>
			<add name = "Modus" value = "3"/>
		</switches>
		<assert assertuienabled="false"
		  logfilename="C:\tracingStacklog.txt"/>
		<trace autoflush = "true" indentsize="0">
			<listeners>
				<add name = "Protokoll"
				  type = "System.Diagnostics.TextWriterTraceListener"
				  initializeData="C:\Protok1.txt"/>
			</listeners>
		</trace>
	</system.diagnostics>
</configuration>