Anonymous

    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