Function xy(ByVal min As Long, ByVal max As Long) As Collection
        prg.Maximum = Integer.MaxValue
        prg.Step = Integer.MaxValue / (max - min)
        Dim Liste As New Collection
        For min = min To max
            If funxtionx(min) Then
                Liste.Add(min)
            End If
            prgVerlauf.PerformStep()
        Next
        Return Liste
    End Function

functionx()

MfG
Visual Studio .Net Team Suite 2008 - Meine neue lieblings IDE