我想实现在运行后，用鼠标点击a点或b点拖动，能使对应的直线可以上下左右移动。

我是个初学者，还不懂，又着急用，请求高人给编写代码。请专家伸出援助之手，感激不尽，万分感谢！！

首先谢谢高手，程序可以运行，但是为啥运行的图上又多出两条线，还请高手给看看，太谢谢了啊！


[ 本帖最后由 zixiacherry 于 2011-8-2 21:29 编辑 ]

运行时出现错误  Me.Line (A.X, A.Y)-(B.X, B.Y)有问题，请高手再给看看，万分感谢！

我把代码都删了  才粘进去的，你给的这个代码和之前的那个不一样了，运行起来不能拖动了，而且还多了条斜线出来，而且斜线可以自由移动，好奇怪。

  嗯，明白啦！ 高手 你太厉害了！！！ 太感谢了！！！！！
 
就是我还有个小问题，能不能实现在直线拖动的时候，不允许交叉？？？
还请高手帮助一下，万分感谢！！！

太谢谢了啊！ 交叉的问题就先这样了，以后要是有啥问题还要多向您请教，麻烦了！ 感谢感谢太感谢了！