Флаги Enum в .NET

Установка/проверка значений битовых флагов VB.NET:

_
Enum Colors As Short
Black = 0
Red = 1
Green = 2
Blue = 4
End Enum

Sub SomeFunc()
'Устанавливаем значение
Dim _MyFlags As Colors = Colors.Red Or Colors.Blue

'Проверяем
If (_MyFlags And Colors.Green) = Colors.Green Then
'Зелёный установлен, делаем что-то
Else
'Зелёный не установлен. Делаем что-то другое (в этом примере будет исполнена именно эта ветка)
End If
End Sub