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