Mega Code Archive
Compare two Int16 numbers
<![CDATA[
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
]]>