Mega Code Archive
CBool(0)
<![CDATA[
Module Tester
Public Sub Main()
Dim iBoolean As Integer = -1
Dim bBoolean As Boolean = CBool(iBoolean)
bBoolean = CBool(0)
Console.WriteLine("Boolean of 0 is {0}", bBoolean)
End Sub
End Module
Boolean of 0 is False
]]>