Just in case the order in the array is not known, you can check each item type:
for i as integer = 0 to ObjectArray.Ubound
select case ObjectArray(i)
case isa ClassA
print str(i)+" is a ClassA"
outputval= ClassA(ObjectArray(i)).cap
case isa ClassB
outputval= ClassB(ObjectArray(i)).cbp
print str(i)+" is a CB"
end select
print "Value "+str(outputval)
next
[quote=232151:@Lee Badham]Just in case the order in the array is not known, you can check each item type:
for i as integer = 0 to ObjectArray.Ubound
select case ObjectArray(i)
case isa ClassA
print str(i)+" is a ClassA"
outputval= ClassA(ObjectArray(i)).cap
case isa ClassB
outputval= ClassB(ObjectArray(i)).cbp
print str(i)+" is a CB"
end select
print "Value "+str(outputval)
next
[/quote]