Я верю, что вы хотите перечисление типа флага.
Вам необходимо добавить атрибут Flags в начало перечисления, а затем объединить перечисления с ключевым словом «Or».
Как это:
<Flags()> _
Enum CombinationEnums As Integer
HasButton = 1
TitleBar = 2
ReadOnly = 4
ETC = 8
End Enum
Примечание: Числа справа всегда в два раза больше (степени 2) - это необходимо для возможности разделения отдельных установленных флагов.
Объедините нужные флаги, используя ключевое слово Or:
Dim settings As CombinationEnums
settings = CombinationEnums.TitleBar Or CombinationEnums.Readonly
Это устанавливает TitleBar и Readonly в перечисление
Чтобы проверить, что было установлено:
If (settings And CombinationEnums.TitleBar) = CombinationEnums.TitleBar Then
Window.TitleBar = True
End If