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