Lines Matching refs:aRet
606 Dim aRet As New TestDataElements
609 aRet.Bool, aRet.Char, aRet.Byte, aRet.Short, _
610 aRet.UShort, aRet.Long, aRet.ULong, _
611 aRet.Hyper, aRet.UHyper, aRet.Float, _
612 aRet.Double, aRet.Enum, aRet.String, _
613 aRet.Interface, aRet.Any, aRet.Sequence, _
616 bRet = check( compareData( aData, aRet ) And _
621 aRet.Bool, aRet.Char, aRet.Byte, _
622 aRet.Short, aRet.UShort, aRet.Long, _
623 aRet.ULong, aRet.Hyper, aRet.UHyper, _
624 aRet.Float, aRet.Double, aRet.Enum, _
625 aRet.String, aRet.Interface, aRet.Any, _
626 aRet.Sequence, aRet2 )
630 Dim temp As TestElement = aRet.Sequence( 0 )
631 aRet.Sequence( 0 ) = aRet.Sequence( 1 )
632 aRet.Sequence( 1 ) = temp
639 aRet = New TestDataElements
642 aRet.Bool, aRet.Char, aRet.Byte, _
643 aRet.Short, aRet.UShort, aRet.Long, _
644 aRet.ULong, aRet.Hyper, aRet.UHyper, _
645 aRet.Float, aRet.Double, aRet.Enum, _
646 aRet.String, aRet.Interface, aRet.Any, _
647 aRet.Sequence, aRet2 )
649 bRet = check( compareData( aData, aRet ) And _
654 xLBT.Bool = aRet.Bool
655 xLBT.Char = aRet.Char
656 xLBT.Byte = aRet.Byte
657 xLBT.Short = aRet.Short
658 xLBT.UShort = aRet.UShort
659 xLBT.Long = aRet.Long
660 xLBT.ULong = aRet.ULong
661 xLBT.Hyper = aRet.Hyper
662 xLBT.UHyper = aRet.UHyper
663 xLBT.Float = aRet.Float
664 xLBT.Double = aRet.Double
665 xLBT.Enum = aRet.Enum
666 xLBT.String = aRet.String
667 xLBT.Interface = aRet.Interface
668 xLBT.Any = aRet.Any
669 xLBT.Sequence = aRet.Sequence
673 aRet = New TestDataElements
675 aRet.Hyper = xLBT.Hyper
676 aRet.UHyper = xLBT.UHyper
677 aRet.Float = xLBT.Float
678 aRet.Double = xLBT.Double
679 aRet.Byte = xLBT.Byte
680 aRet.Char = xLBT.Char
681 aRet.Bool = xLBT.Bool
682 aRet.Short = xLBT.Short
683 aRet.UShort = xLBT.UShort
684 aRet.Long = xLBT.Long
685 aRet.ULong = xLBT.ULong
686 aRet.Enum = xLBT.Enum
687 aRet.String = xLBT.String
688 aRet.Interface = xLBT.Interface
689 aRet.Any = xLBT.Any
690 aRet.Sequence = xLBT.Sequence
693 bRet = check( compareData( aData, aRet ) And _
710 bRet = (compareData( aData, aRet ) And compareData( aData, aRet2 )) _
715 aRet.Interface = xLBT.Interface
716 bRet = (aRet.Interface Is Nothing) And bRet
726 Dim aRet As TestDataElements = New TestDataElements