13/09/2003, 06:41
|
 | | | Fecha de Ingreso: noviembre-2002
Mensajes: 99
Antigüedad: 21 años, 6 meses Puntos: 0 | |
| El codigo de toda la funcion posi acaso
Public Sub correLinea(linea As Line)
Dim xFinal As Single
Dim yFinal As Single
Dim linea2 As Line
Dim fecha As Date, fechaAhora As Date
xFinal = linea.X2
yFinal = linea.Y2
Set linea2 = linea
Set linea2 = Controls.Add("VB.line", "linea2")
With linea2
.X1 = linea.X1
.Y1 = linea.Y1
.X2 = linea.X1
.Y2 = linea.Y1
.BorderWidth = linea.BorderWidth
.BorderColor = vbYellow
.Visible = True
.ZOrder 0
End With
Do While linea2.X2 < xFinal
linea2.X2 = linea2.X2 + 400
'Sleep 120
fechaAhora = Now
fecha = fechaAhora + 0.00001
Do While fechaAhora <= fecha
fechaAhora = Now
Loop
Loop
End Sub |