Imports System
Public Class EqualsTest
Enum Colors
Red
Green
Blue
Yellow
End Enum 'Colors
Enum Mammals
Cat
Dog
Horse
Dolphin
End Enum 'Mammals
Public Shared Sub Main()
Dim myPet As Mammals = Mammals.Cat
Dim myColor As Colors = Colors.Red
Dim yourPet As Mammals = Mammals.Dog
Dim yourColor As Colors = Colors.Red
Console.WriteLine(myPet.Equals(yourPet))
Console.WriteLine(myColor.Equals(yourColor))
Console.WriteLine([Enum].Format(GetType(Colors), myColor, "d"))
Console.WriteLine([Enum].Format(GetType(Mammals), myPet, "d"))
End Sub
End Class