Data Types VB.Net

 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