SoloCodigo

Hola! Soy Areli

Tengo este codigo, lo cual me dibuja un segemnto de recta cuando le doy click al command1...
Mi peticion es la siguiente: como puedo hacer para que este se repita cada vez que le doy click al command1 y no se haga solo una vez.

Private Sub Command1_Click()

Dim x  As Integer

x = 1680

Command1.Enabled = False
Line (1560, 1320)-(x, 1320)
Line (1560, 2160)-(x, 2160)
Line (1560, 2880)-(x, 2880)
x = x + 120
Command1.Enabled = True

End Sub

Con el siguiente codigo, trazo la linea pero de un solo click.

Private Sub Command1_Click()

Dim x  As Integer

x = 1680

While (x <= 14760)

Command1.Enabled = False
Line (1560, 1320)-(x, 1320)
Line (1560, 2160)-(x, 2160)
Line (1560, 2880)-(x, 2880)
x = x + 120
Command1.Enabled = True

Wend

End Sub