求好心人帮忙
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
怎么用动态数组连续的画线？

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

等待好心人的出现

。。。。。。

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

mousedown：
    drawing=true;
    记录当前点的位置；
mousemove:
    if drawing then
        由当前点和记录点画线
        重新记录当前点
    end if
mouseup
    drawing=false

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

数组的？什么意思，说清楚一些吧。

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

那下一条线的终点在哪？
还是说你的意思是像画笔一样画画？
MouseMove:
    Me.Line -(x, y), linecolor