<Flags> Public Enum Pets As Integer
None = 0
Dog = 1
Cat = 2
Bird = 4
Rodent = 8
Reptile = 16
Other = 32
End Enum
Public Module Example
Public Sub Main()
Dim familyPets As Pets = Pets.Dog Or Pets.Cat
If familyPets = Pets.None Then
Console.WriteLine("The family has no pets.")
Else
Console.WriteLine("The family has pets.")
End If
End Sub
End Module