Imports System Public Class CompareToTest Enum Car Motorbike = 0 Sportscar = 2 Sedan = 4 Hatchback = 5 End Enum Public Shared Sub Main() Dim myVeh As Car = Car.Sportscar Dim yourVeh As Car = Car.Motorbike Dim otherVeh As Car = Car.Sedan Dim output as String Console.WriteLine(myVeh.CompareTo(yourVeh) > 0) End Sub End Class