public class Test public Shared Sub Main Dim I As Integer = 0 Dim S As Integer = 8 Console.WriteLine(I.CompareTo(S)) End SubEnd class -1