Problemilla con tragaperras

[Dunderio]

Me toco hacer algo parecido y te vas a topar con varios problemas:
1-debes cargar en memoria las imagenes antes de ponerlas a rotar
con algo asi:
Private Sub cargar_fotos_memoria()
lienzo.Visible = False
Application.DoEvents()
Dim x As Integer
lbl_nombre.Text = "Cargando fotos"
For x = 0 To dt.Rows.Count - 1
Application.DoEvents()
foto.ImageLocation = My.Settings.ruta & dt.Rows(x).Item(2).ToString
Next
lienzo.Visible = True
End Sub
2-Debes usar una funcion que espere en tiempo real, algo como esto
Private Sub wait(ByVal interval As Integer)
Dim sw As New Stopwatch
sw.Start()
Do While sw.ElapsedMilliseconds < interval
' Allows UI to remain responsive
Application.DoEvents()
Loop
sw.Stop()
End Sub
3-Despues de esto ya el resto es fácil crea el loop con las imagenes y les metes el wait antes de que cambie.

Saludos

Espero te funcione.