Data Types VB.Net

 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