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
