Module Tester Public Sub Main() Dim iBoolean As Integer = -1 Dim bBoolean As Boolean = CBool(iBoolean) Console.WriteLine("Boolean of {0} is {1}", iBoolean, bBoolean) End SubEnd Module Boolean of -1 is True