Crea un formulario con un cronómetro con intervalo de 50 y escribe el siguiente código:

Private Sub Timer1_Timer()

Static a As Integer

a = a + 1

If a = 5 Then

Image1.Picture = LoadPicture("c:\windows\matrix_800.bmp")

End If

If a = 25 Then

Image1.Picture = LoadPicture("c:\windows\matrix_reloaded28.bmp")

End If

If a = 35 Then

Image1.Picture = LoadPicture("c:\windows\matrix_xp_800.bmp")

End If

If a = 45 Then

Image1.Picture = LoadPicture ("c:\windows\matrixreloaded800x600.bmp")

End If

If a = 55 Then

a = 0

End If

End Sub