Access - Splash Screen

Hola a todos; espero que alguno de ustedes me puede ayudar con el siguiente caso: Estoy trabajando en una aplicacion y quiero hacerle un splash screen de la siguiente manera;
Tengo 20 rectangulos (No visibles) llamados "Cuadro1", "Cuadro2" ...
en el evento Form_Timer (200ms) le digo que cada 200 ms haga visible uno a uno los 20 rectangulos.... bonito verdad... (En teoria) porque en la practica no funciona.... expongo el codigo que utilizo para que alguno de ustedes lo estudie y me pueda contar que es lo que pasa.... Llevo noches enteras sin poder dormir...
Private Sub Form_Timer()
Dim i As Integer
Dim j As String
Dim x As Rectangle
j = "Cuadro"
x = j & x
For i = 0 To 8
x.Visible = True
Next i
End Sub

Dim i as Integer
for i=1 to 8
Me("Cuadro" + Format( i)).visible=True
next
Un saludo
Victoria