Public Shared Operator IsTrue(ByVal x As xObject) As Boolean Return Not IsNothing(x) End Operator Public Shared Operator IsFalse(ByVal x As xObject) As Boolean Return IsNothing(x) End Operator Public Shared Operator Not(ByVal x As xObject) As Boolean Return IsNothing(x) End Operator Public Shared Operator And(ByVal x As xObject, ByVal a As xObject) As xObject If Tasty(x) And Tasty(a) Then Return x Else Return Nothing End If End Operator Public Shared Widening Operator CType(ByVal b As Boolean) As xObject If b Then Return New xObject Else Return Nothing End Operator