Dim DerProcess As New System.Diagnostics.Process
 
 
            y = 0
            Me.DerProcess = Process.Start("DerProzess.exe")
            Me.DerProzessProcessorTime = 0
            Do Until y > 1
                Me.DerProzessProcessorTime = _
                  DerProcess.TotalProcessorTime.TotalSeconds
                If Me.DerProzessProcessorTime >= 6 Then
                    ServerStart()
                    Exit Do
                End If
            Loop