点击窗体产生X，Y坐标线，VB源代码，效果图如上所示，功能挺简单没什么可介绍的，VB6.0下开发的，需要的童鞋直接下载就是了。