Imports System

Imports System.Linq

Imports System.Collections.Generic

​

Public Module Module1

    <Flags>

    public enum Tests

        Test1 = 1

        Test2 = 2

        Test3 = 4

        Test4 = 6

    end enum

​

    Public class test1

​

        public testenum as Tests

    end class

​

    Public Sub Main()

        for each thing in TestFunction(Tests.Test1)

            Console.WriteLine(thing.testenum)

        Next

        Console.WriteLine("--------------------------")

    for each thing in TestFunction(Tests.Test2)

            Console.WriteLine(thing.testenum)

        Next

​

        Console.WriteLine("--------------------------")

    for each thing in TestFunction(Tests.Test3)

            Console.WriteLine(thing.testenum)

        Next

​

        Console.WriteLine("--------------------------")

    for each thing in TestFunction(Tests.Test4)

            Console.WriteLine(thing.testenum)

        Next

​

​

        Console.WriteLine("--------------------------")

    for each thing in TestFunction(Tests.Test2 OR Tests.Test1)

            Console.WriteLine(thing.testenum)

        Next

    End Sub

​

    Public Function TestFunction(state As Tests) As List(Of test1)

        dim testList As new List(Of test1)

        testList.Add(New test1() With {.testenum = Tests.Test1})

        testList.Add(New test1() With {.testenum = Tests.Test2})

        testList.Add(New test1() With {.testenum = Tests.Test3})

        testList.Add(New test1() With {.testenum = Tests.Test4})

        Return testList.Where(Function(line) line.testenum And state).ToList()

    End Function

End Module

​