Private Function isStarted() As Boolean
        Dim ProgId As Integer = 0
        Dim Interval As Integer = 0
        Dim StartZeit As DateTime = Now
        Dim Prog As Process() = Process.GetProcessesByName( _
          Process.GetCurrentProcess.ProcessName)
        Dim p As Process
        Try
            If Process.GetProcessesByName( _
              Process.GetCurrentProcess.ProcessName).Length > 1 Then
                For i As Integer = Prog.GetLowerBound(0) To Prog.GetUpperBound( _
                0)
                    If DateDiff(DateInterval.Second, Prog(i).StartTime, _
                    StartZeit) > Interval Then
                        p = Prog(i)
                        Interval = CInt(DateDiff(DateInterval.Second, Prog( _
                          i).StartTime, StartZeit))
                    End If
                Next
                'Hier müsste irgendwie ein Parameter übergeben werden an den 
                ' Process p.
                 AppActivate(p.Id)  ' Focus auf das bereits geöffnete Programm.
           Return True
     Exit Try
            End If
            Return False
        Catch ex As System.Exception
        End Try
    End Function