Simular movimiento de noria

[pkj]

Si el problema es ir moviendo las imagenes puedes intentarlo asi:

Suponiendo que tienes las imagenes en Image1,Image2, etc hasta Image6
e incluyes un timer (Timer1) para el movimiento...

Código vb:

'Creas una variable de coordenadas
 
Private Type Coordenadas
  X As Long
  Y As Long
End Type
 
'Luego creas un array de coordenadas. Pongamos que vamos a tener 12 posiciones, como las horas del reloj.
 
Dim Posicion(12) As Coordenadas
 
'Y una variable que despues usaremos:
Dim Barquilla As Integer
 
'Y otra que será la dirección:
Dim Direccion As Integer
 
 
'En el Load cargas las coordenadas:
 
 
Private Sub Form_Load()
 
  Posicion(1).X=?????
  Posicion(1).Y=?????
  Posicion(2).X=?????
  Posicion(2).Y=?????
  Posicion(3).X=?????
  Posicion(3).Y=?????
  Posicion(4).X=?????
  Posicion(4).Y=?????
'  ... ETC, ETC
  Posicion(12).X=?????
  Posicion(12).Y=?????
 
  'Luego cargas una variable que será la posicion de la primera barquilla:
  Barquilla = 1
 
  'Y La dirección hacia la derecha:
  Direccion = 1
  'para ir en la otra direccion asignamos el valor Direccion = -1
 
  'Activamos el Timer que ira moviendo las barquillas
  Timer1.Interval=500 ' a 2 pasos por segundo p.ej.
  Timer1.Enabled = True
 
End Sub
 
Private sub Timer1_Timer()
  Dim Sitio as integer
  barquilla=barquilla + direccion
  if barquilla>12 then barquilla=barquilla-12
  if barquilla<1 then barquilla=barquilla+12
  image1.left=posicion(barquilla).x
  image1.top=posicion(barquilla).y
  sitio=barquilla+2
  if sitio>12 then sitio=sitio-12
  if sitio<1 then sitio=sitio+12
  image2.left=posicion(sitio).x
  image2.top=posicion(sitio).y
  sitio=barquilla+4
  if sitio>12 then sitio=sitio-12
  if sitio<1 then sitio=sitio+12
  image3.left=posicion(sitio).x
  image3.top=posicion(sitio).y
  sitio=barquilla+6
  if sitio>12 then sitio=sitio-12
  if sitio<1 then sitio=sitio+12
  image4.left=posicion(sitio).x
  image4.top=posicion(sitio).y
  sitio=barquilla+8
  if sitio>12 then sitio=sitio-12
  if sitio<1 then sitio=sitio+12
  image5.left=posicion(sitio).x
  image5.top=posicion(sitio).y
  sitio=barquilla+10
  if sitio>12 then sitio=sitio-12
  if sitio<1 then sitio=sitio+12
  image6.left=posicion(sitio).x
  image6.top=posicion(sitio).y
End Sub
 

Me apuesto 2 chicles a que funciona.