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.