ayuda para finalizar codigo

PI
15 de Abril del 2004
tengo este codigo que hace que una foto valla por todo el form rebotando en las esquinas,ahora como puedo cambiar de una foto a otra en cada movimiento o sea tengo 6 fotos; 3 de ellas si se ven una detra de otra crea la ilusion del muñeco moviendose hacia la derecha y las otra 3 hacia la izquierda.:pregunta
como puedo decirle al programa que cuando el muñeco corre a la derecha valla intercambiando las 3 fotos de la derecha para hacer la ilusion y cuando rebote que cambie a las fotos de la izquierda.gracias

Dim stopit As Boolean
Dim imagenes(11) As Picture
Dim z As Integer
Dim x, y As Integer
Private Sub Command1_Click()
Form1.Scale (0, 0)-(100, 100)
Set imagenes(0) = LoadPicture(App.Path & "Gifs" & "bill1r.gif") 'right
Set imagenes(1) = LoadPicture(App.Path & "Gifs" & "bill2r.gif") 'right
Set imagenes(2) = LoadPicture(App.Path & "Gifs" & "bill3r.gif") 'right
Set imagenes(3) = LoadPicture(App.Path & "Gifs" & "bill1l.gif") 'left
Set imagenes(4) = LoadPicture(App.Path & "Gifs" & "bill2l.gif") 'left
Set imagenes(5) = LoadPicture(App.Path & "Gifs" & "bill3r.gif") 'left

stopit = False
Do While (stopit = False)
DoEvents
Cls

x = x + 1
y = y + 1

PaintPicture imagenes(z), x, y

If (x > 90) Then
deltax = deltax * Rnd
deltax = deltax - 1
ElseIf (y > 76) Then
deltay = deltay * Rnd
deltay = deltay - 1
ElseIf (y < 0) Then
deltay = deltay * Rnd
deltay = deltay + 1
ElseIf (x < 0) Then
deltax = deltax * Rnd
deltax = deltax + 1
End If
x = x + deltax
y = y + deltay
For i = 0 To 1000000
Next
Cls
Loop

End Sub
Private Sub Command2_Click()
stopit = True
End Sub
Private Sub Form_Click()
stopit = True
Dim z As Integer
Set imagenes(6) = LoadPicture(App.Path & "Gifs" & "bdeath1.gif") 'explode1
Set imagenes(7) = LoadPicture(App.Path & "Gifs" & "bdeath2.gif") 'explode2
Set imagenes(8) = LoadPicture(App.Path & "Gifs" & "bdeath3.gif") 'explode3
Set imagenes(9) = LoadPicture(App.Path & "Gifs" & "bdeath4.gif") 'explode4
Set imagenes(10) = LoadPicture(App.Path & "Gifs" & "bdeath5.gif") 'explode5
For z = 6 To 10
Cls
PaintPicture imagenes(z), x, y
For i = 0 To 10000000
Next
Cls
Next

Cls
End Sub




soy atorrante
15 de Abril del 2004
piensa un poco màs no creo q alguien se anime a leer todo ese codigo.