Foro de elhacker.net

Como Yo Hago Un loop con 6 fotos  cuando llega a la ultima foto vuelve a la primera

dim jumps as integer
for jumps = 1 to 6  
image1.visble=true
image2.visble=true 
image3.visble=true
image4.visble=true
image5.visble=true
image6.visble=true
 
next jump
 
End Sub
 

Cuando el for acaba, vuelve al principio. Es un bucle.

Seria Con Timer ?   por que no me hace nada

¿Pero qué es lo que no consigues hacer?

www.youtube.com/watch?v=gw6iV3qaXWM

Queria Hacer Algo asi Dale en 2:08

Sí, hazlo con un timer. Con un for no verías nada, ya que cambiaría las imágenes al instante.

No me hace nada tengo el timer interval en 1000 y todavia

Private Sub Form_Load()
Dim jumps As Integer
For jumps = 1 To 2
Mario.Visible = True
Luigi.Visible = True
Next
End Sub
 
Private Sub Timer1_Timer()
Timer1.Enabled = True
End Sub

Olvídate del for...  esto es algo muy básico, pero te dará la idea del uso del timer

Private Sub Form_Load()
    Timer1.Interval = 1000 
    Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
    if mario1.visible = true
         mario1.visible = false
         luigi1.visible = true
    else
         mario1.visible = true
         luigi1.visible = false
    end if
End Sub