Compare two Int16 numbers
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