Abrir un shape, registro a registro...

'Rutina para recorrer un Tema ArcView (shape), y
extraer la geometria de cada registro.

mv = av.GetActiveDoc

mt = mv.GetThemes.Get(0).GetFTab

For each rec in mt

miForma = mt.returnvalue(mt.getfields.get(0),rec)

end