'定义Picture坐标系,绘制中轴线
Private Sub Command1_Click()
Dim Y%, X%
Me.Picture1.Scale (0, 100)-(200, 0)
Me.Picture1.Line (0, 50)-(200, 50), vbRed
End Sub

'按下鼠标获取点坐标
Private Sub picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
CurrentX = X
CurrentY = Y
End Sub
'画线
Private Sub picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button Then
Me.Picture1.Line -(X, Y), vbBlue
End If
End Sub

问题:
如何修改才能得到不连续的任意曲线?(即鼠标按下后再按下鼠标,在两点之间不会形成连线!)

多谢指教!

首先感谢楼上兄弟的热情帮助！
按照上述方法问题仍然得不到解决，调试时得到的依然是连续曲线．

感谢＾＿＾