Imports System

Public Module Module1

    <Flags()>

    Public Enum BitWiseFlags

        Flag0

        Flag1

        Flag2

        Flag3

        Flag4

    End Enum

    Public Sub Main()

        Dim flagsTest1 = BitWiseFlags.Flag0 Or BitWiseFlags.Flag1

        Console.WriteLine("HasFlag0: {0}", flagsTest1.HasFlag(BitWiseFlags.Flag0))

        Dim flagsTest2 = BitWiseFlags.Flag1

        Console.WriteLine("HasFlag0: {0}", flagsTest2.HasFlag(BitWiseFlags.Flag0))

        Dim flagsTest3 = BitWiseFlags.Flag1 Or BitWiseFlags.Flag2

        Console.WriteLine("HasFlag3: {0}", flagsTest3.HasFlag(BitWiseFlags.Flag3))

    End Sub

End Module