Protected Function Checkout() As Boolean
        Return IIf(IsNothing(tsCheckout) Or Date.Now > tsCheckout, True, False)
    End Function

    Protected Sub SetCheckout()
        tsCheckout = Date.Now.AddMinutes(dSource.Checkout)
    End Sub