silverlight中Expander的收缩展开动画Demo

项目中用到Expander，但网上竟然找不到有动画效果的好用的例子，可能是我找的不够努力吧。。偶然发现ComponentOne的Expander效果不错http://demos.componentone.com/silverlight/controlexplorer/#Menus/See%20it%20in%20action仿照这个效果自己写了一个对应toolkit中的Expander的样式，为了节省时间，只写了右收缩的样式。目前只能点击箭头实现收缩展开功能，不太理想但没想到办法，求哪位高手给指出条明路啊。