Place this script on a hidden text object that is linked to your data. Either rename your arrows or change this script to match the object names.
Dim top, bottom as xpBaseObject
Scene.GetObjectByName("top arrow",top)
Scene.GetObjectByName("bottom arrow", bottom)
top.Visible=true
bottom.visible=false
else if text = "B"
top.visible=false
bottom.visible=true
------------------------------
Malcolm Thorpe
Free Lance Xpression Designer/Carbonite TD
------------------------------