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