Dim i As Integer
        ComputerName = Environment.MachineName
        user = Environment.UserName
        myProcessess = Process.GetProcesses
        prozess_alt = Process.GetProcesses
        alt = prozess_alt.GetLength(0)
        ReDim prozess_old(alt)
        For i = 0 To alt - 1
            prozess_old(i) = prozess_alt(i).ProcessName.ToString
        Next
        If Lehrer = False Then
            black_pfad = "C:\kleblack.txt"
        ElseIf Lehrer = True Then
            black_pfad = "C:\lehrblack.txt"
        End If
        Dim srb As New System.IO.StreamReader(black_pfad)
        Do Until srb.EndOfStream = True
            srb.ReadLine()
            KillI = KillI + 1
        Loop
        srb.Close()
        ReDim KillProcess(KillI)
        Dim srb2 As New System.IO.StreamReader(black_pfad)
        For i = 0 To KillI - 1
            KillProcess(i) = srb2.ReadLine
        Next
        srb2.Close()
        Me.ShowInTaskbar = False
        Me.Hide()
        Me.tmrBeenden.Start()
        Me.tmrList.Start()
        Me.tmrVergleich.Start()
        Me.tmrWrite.Start()