Vba object's property as argument to a function

Hello
I try to send object property as argument to a function in vba
this function must sort objects by "LAYER" or "COLOR"
but i don't know how to use this argument in the function

Public Function tri_par ( Aray , value)
For i = 1 To UBound (aray)
..............
..........
objprop = objent.value (where value is equal to "LAYER" or "COLOR")
doesn't seems to be right

if it isn't possible, Is there a command that accept dxf code as argument ?
That irritates me, if I succeeded not, I go back in Lisp

Thank for help me.

 

I'm not sure what you are asking.....if you could post the lisp code that
does what you want, I/we can help you get the VB code to do the same thing.

Jeff

 

My question is :
Can i have a variable to define a property
like in visual lisp
(setq dummy "layer")
(vlax-get-property object dummy)
in vba
dummy = "layer"
object.dummy
is incorrect
is there a method in vba to do this ?
sorry, I explained with difficulty because my English is poor

 

Perhaps this is what you are after?

(setq dummy "layer")
(vlax-get-property object (read dummy))

 

OK, I think I've got what you are attempting. Try this:

For i = 1 To UBound(Aray)
..............
..........
Select Case value
Case "LAYER"
objprop = objEnt.Layer

Case "COLOR"
objprop = objEnt.Color

End Select

HTH,
Jeff