Class Sample
Public Shared Sub Main()
Dim doubleVal As Double
Dim boolVal As Boolean
doubleVal = 1.1
boolVal = System.Convert.ToBoolean(doubleVal)
System.Console.WriteLine("{0} as a Boolean is: {1}.",doubleVal, boolVal)
doubleVal = System.Convert.ToDouble(boolVal)
System.Console.WriteLine("{0} as a Double is: {1}.",boolVal, doubleVal)
End Sub
End Class