鼠标绘制直线,该如何解决

鼠标绘制直线
向高手请教：
  想用鼠标绘制多段直线，要求鼠标点击PictureBox区域，鼠标坐标第一次点击获得第一个点坐标，再次点击获得第二个点坐标，以两坐标绘制第一条直线，第三次点击后，从刚刚的第二个点开始绘制第二条直线。
  小弟刚刚在学习VB，分数不多不好意思，希望高手们帮帮忙，谢谢了。

[解决办法]

VB code

Public OldX As Long '记录上次左键点击时的坐标Public OldY As LongPublic MDown As Boolean '判断是否是第一次点击Private Sub Form_Load()MDown = False '默认没有点击End SubPrivate Sub Picture1_DblClick()Unload Form1End SubPrivate Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)If Not MDown Then    If Button = 1 Then '左键第一次点击        MDown = True    End IfElse    If Button = 1 Then '左键        Picture1.Line (OldX, OldY)-(X, Y), RGB(0, 0, 0) '画黑色线    ElseIf Button = 2 Then '右键，点击右键完成本次画线        MDown = False    End IfEnd IfOldX = XOldY = YEnd Sub