Mega Code Archive
Convert ToDecimal (Boolean) converts Boolean value to decimal number
<![CDATA[
Class Sample
Public Shared Sub Main()
Dim flags() As Boolean = { True, False }
Dim result As Decimal
For Each flag As Boolean In flags
result = Convert.ToDecimal(flag)
Console.WriteLine("Converted {0} to {1}.", flag, result)
Next
End Sub 'Main
End Class 'Sample
]]>