Option Explicit
Dim arrx() As Single
Dim arry() As Single
Dim i As Integer
 
Private Sub btnCls_Click()
    Picture1.Cls
End Sub
 
Private Sub btnRedraw_Click()
    For i = 0 To UBound(arrx) - 1 Step 2
        Picture1.Line (arrx(i), arry(i))-(arrx(i + 1), arry(i + 1)), vbRed, B
    Next i
End Sub
 
Private Sub Form_Load()
    ReDim arrx(0)
    ReDim arry(0)
    i = 0
End Sub
 
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As _
  Single, Y As Single)
    ReDim Preserve arrx(i)
    ReDim Preserve arry(i)
    arrx(i) = X
    arry(i) = Y
    i = i + 1
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, _
  Y As Single)
    ReDim Preserve arrx(i)
    ReDim Preserve arry(i)
    arrx(i) = X
    arry(i) = Y
    i = i + 1
    Picture1.Line (arrx(i - 2), arry(i - 2))-(arrx(i - 1), arry(i - 1)), vbRed, _
      B
End Sub