Data Types VB.Net

Imports System
Class Sample
   Public Shared Sub Main()
      Dim c1 As Int16 = -2,          c2 As Int16 = 2
      Console.WriteLine(c1.CompareTo(c2))
      Console.WriteLine(c1.CompareTo(CObj(c2)))
   End Sub 'Main
End Class