''' <summary>
    ''' Rückgabe eines Elements aus einer unsortierten Liste, 
    ''' das an einer best. Sortier-Position steht
    ''' </summary>
    ''' <param name="lst">unsortierte Liste (Double)</param>
    ''' <param name="IsSorted">Liegen die Elemente intern bereits sortiert 
    ' vor?</param>
    ''' <param name="OrderPosition">Sortier-Position des gesuchten 
    ' Listen-Elements</param>
    ''' <param name="ElementValue">Rückgabe: Wert des Elements</param>
    ''' <param name="ElementIndex">Rückgabe: ListenIndex des Elements</param>
    ''' <returns>Alles OK?</returns>
    Public Function GetSortedElement _
             (ByVal lst As List(Of Double), ByVal IsSorted As Boolean, _
              ByVal OrderPosition As Integer, _
              ByRef ElementValue As Double, _
              ByRef ElementIndex As Integer) As Boolean
 
        Static arr() As Double
 
        ElementValue = 0: ElementIndex = -1 
        If OrderPosition < 0 Then Return False
        If lst Is Nothing OrElse lst.Count <= OrderPosition Then Return False
 
        If IsSorted Then
            If arr Is Nothing OrElse arr.Length <> lst.Count Then Return False
        Else
            arr = lst.ToArray : Array.Sort(arr)
        End If
        ElementValue = arr(OrderPosition)
        ElementIndex = lst.IndexOf(ElementValue)
        Return True
    End Function
End Class