求好心人帮忙
Dim startx, starty As Single
Dim drawing As Boolean

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
     If Button <> 1 Then Exit Sub
     Picture1.AutoRedraw = False   
     startx = X   
     starty = Y
     drawing = Not drawing
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If drawing Then        
    Picture1.Cls   
    Picture1.Line (startx, starty)-(X, Y)   
    Picture1.MousePointer = 2   
    End If
End Sub
怎么用动态数组连续的画线？

==================================================

等待好心人的出现

。。。。。。

高手们，不就是弹指一挥间的事吗，帮帮忙吧

谢谢大神答复，你说的这个我知道，但是我想把这个程序改成数组的

就是以上一条线的终点为下条线的起点不停地画线

下条线的终点就是鼠标点击的坐标，有些类似画多边形那样的