不用组件,直接实现坐标转换源码(VB)!很好的代码!值得一看!