Private Sub Form_Load()
Dim i As Integer
For i = Line1.lbound To Line1.ubound - 1
comp Line1(i), Line1(i + 1)
 
 
Next i
 
End Sub
 
Sub comp(linea As Line, lineb As Line)
lineb.X1 = linea.X2
lineb.Y1 = linea.Y2
End Sub