Public Enum Dinner As Integer
None = 0
Entree = 1
Appetizer = 2
Side = 4
Dessert = 8
Beverage = 16
BarBeverage = 32
End Enum
Module Example
Public Sub Main()
Dim myOrder As Dinner = Dinner.Appetizer Or Dinner.Entree Or
Dinner.Beverage Or Dinner.Dessert
Dim flagValue As Dinner = Dinner.Entree Or Dinner.Beverage
Console.WriteLine("{0} includes {1}: {2}",
myOrder, flagValue, myOrder.HasFlag(flagValue))
End Sub
End Module