Public Sub SetVariants( _ ByRef rDest As Variant _ , ByRef rSrc As Variant _ )
Integer and Variant with Integer value. String and Variant with String value. Double and Variant with Long value. Variant with Integer value and Variant with String value.Example:
Assuming Dim varOne As Variant Dim varTwo As Variant varOne = "1" varTwo = "2" for example SetVariants varOne, varTwo leaves varOne = "2" varTwo = "2"See also:
SwapVariants FunctionrDest: Value which is to be set to that of rSrc.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.