Convert.ToSingle (Boolean) converts Boolean value to single-precision floating-point number.
Class Sample Public Shared Sub Main() Dim flags() As Boolean = { True, False } Dim result As Single For Each flag As Boolean In flags result = Convert.ToSingle(flag) Console.WriteLine("Converted {0} to {1}.", flag, result) Next End Sub End Class