Public Function MakePoint( _ ByVal vX As Variant _ , ByVal vY As Variant _ ) As Variant
Assuming Dim varPoint1 As Variant varPoint1 = MakePoint(2, 3) for example VarType(varPoint1) = vbVariant + vbArray LBound(varPoint1) = 0 UBound(varPoint1) = 1 varPoint1(0) = 2 varPoint1(1) = 3 and LinesCounterClockwise(varPoint1, varPoint1, varPoint1) = 0See also:
MakeLine Function ArgumentsToVariant Function (more flexible) LinesCounterClockwise FunctionvX: Number representing the X-coordinate of the "point" being created.
Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.