关于PICTUREBOX 笔触问题！

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
   Picture1.CurrentX = X: Picture1.CurrentY = Y
   sngDrawWidth = 10
  DrawWidth = sngDrawWidth
End If

End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim lngDrawColor As Long
If Button = 1 Then
   Picture1.DrawWidth = sngDrawWidth
  Picture1.Line -(X, Y)
End If
End Sub
期望达到的效果如图：

在线等谢谢！ --------------------编程问答-------------------- 顶起来。。。。。大家帮我想想看
If Button = 1 Then
   Picture1.DrawWidth = sngDrawWidth
   Picture1.Line (X, Y)-(X - 150, Y + 150)‘//这样好像有效果，但是线段不能连续。
End If --------------------编程问答-------------------- ding

补充：VB ,  控件