Después de luchar durante unas horas descubrí que lo mejor era hacer una array con un contador, pongo aquí el código
Código:
Dim contador As Integer
Dim coordenada(1 To 20, 1 To 4) As Integer
Dim x1 As Integer
Dim x3 As Integer
Dim y1 As Integer
Dim y2 As Integer
Private Sub borrar_Click()
Monitor.Cls
contador = 0
lineas.Caption = contador
End Sub
Private Sub crear_Click()
contador = contador + 1
coordenada(contador, 1) = creax1
coordenada(contador, 2) = creay1
coordenada(contador, 3) = creax2
coordenada(contador, 4) = creay2
Monitor.Line (coordenada(contador, 1), coordenada(contador, 2))-(coordenada(contador, 3), coordenada(contador, 4)), vbBlack
' Monitor.Line (200, 400)-(3000, 700), vbBlack
lineas.Caption = contador
End Sub
Private Sub move_Click()
' vx2 = x2.Text
' vy2 = y2.Text
vx1 = movex1.Text
vy1 = movey1.Text
Monitor.Cls
movimientos = contador
Do While movimientos > 0
coordenada(movimientos, 1) = coordenada(movimientos, 1) - vx1
coordenada(movimientos, 2) = coordenada(movimientos, 2) - vy1
coordenada(movimientos, 3) = coordenada(movimientos, 3) - vx1
coordenada(movimientos, 4) = coordenada(movimientos, 4) - vy1
Monitor.Line (coordenada(movimientos, 1), coordenada(movimientos, 2))-(coordenada(movimientos, 3), coordenada(movimientos, 4)), vbBlack
movimientos = movimientos - 1
Loop
lineas.Caption = contador
End Sub
Marcadores