VB鼠标绘图代码，可设置颜色和线宽，画的不满意可清除，可当作一个VB的绘图模块来用。如果不是处在绘图状态则退出Private Sub Picture1_MouseMove过程，如果处在绘图状态则从起点到目前鼠标所在点绘制直线，然后将当前鼠标所在点作为新的起点，当释放鼠标按键时绘图结束。-VB mouse drawing code, you can set the color and line width, are not satisfied with the painting can be cleared, can be used as a VB drawing module to use. If the state is not in the drawing process to exit Private Sub Picture1_MouseMove, if in the current drawing state from the starting point to the point where the mouse to draw lines, and then the current mouse point as a new starting point, when you release the mouse button when the plot ends.