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