Gráficos en VB

[welvis30]

Buenas... resulta que estoy haciendo un proyecto en VB y yo de VB no tengo mucha idea, la cuestión es la siguiente...

El programa crea lineas, por medio del evento line y mediante coordenadas creas las que te interesan...ahora bien me gustaría poder mover las figuras creadas..pero no sé numerar cada linea para luego más tarde poder moverlas, es decir, si se le aplica un movimiento mediante coordenada, coger todas las lineas y moverlas...no se si me explico bien.

Aqui pongo parte del código

Private Sub crear_Click()
Monitor.Line (creax1, creay1)-(creax2, creay2), vbBlack
End Sub

Private Sub move_Click()
vx1 = x1.Text
vy1 = y1.Text
Monitor.Cls
Monitor.Line (creax1 - vx1, creay1 - vy1)-(creax2 - vx1, creay2 - vy1), vbBlack
End Sub

Gracias de Antemano