Convert.ToUInt16 (Boolean) converts Boolean to 16-bit unsigned integer.
Class Sample Public Shared Sub Main() Dim falseFlag As Boolean = False Dim trueFlag As Boolean = True
Console.WriteLine("{0} converts to {1}.", falseFlag,Convert.ToUInt16(falseFlag))
Console.WriteLine("{0} converts to {1}.", trueFlag,Convert.ToUInt16(trueFlag)) End Sub End Class