Development VB.Net

Imports System
Class Sample
   Public Shared Sub Main()
      Try
      
         Dim a1 As Guid = New Guid("{CA761000-ED42-11CE-BACD-00AA0000B000}"), a2 As Guid = New Guid("{CA761000-ED42-11CE-BACD-00AA0000B000}")
         Show(a1, a2, a1.CompareTo(a2), a1.CompareTo(CObj(a2)))
      Catch e As Exception
         Console.WriteLine(e)
      End Try
   End Sub
   Public Shared Sub Show(var1 As [Object], var2 As [Object], resultGeneric As Integer, resultNonGeneric As Integer)
      Console.WriteLine(var1)
      Console.WriteLine(var2)
      If resultGeneric = resultNonGeneric Then
         If resultGeneric < 0 Then
            Console.WriteLine("less than")
         ElseIf resultGeneric > 0 Then
            Console.WriteLine("greater than")
         Else
            Console.WriteLine("equal to")
         End If
         
      End If
   End Sub
End Class