<FlagsAttribute()> _
Enum Colors
Red = 1
Green = 2
Blue = 4
Yellow = 8
End Enum
Public Module Example
Public Sub Main()
Dim myColors As Colors = Colors.Red Or Colors.Blue Or Colors.Yellow
Console.WriteLine("myColors holds a combination of colors. Namely: {0}", myColors)
End Sub
End Module