Option Compare Database
Dim trz As Integer

Private Sub Form_Timer()
trz = trz + 1
'Diğer formun açılma süresi 1200 ms yani 1.2 saniyedir..
'Değiştirmek için 10 rakamını düzenleyiniz..
If trz = 10 Then
DoCmd.Close
DoCmd.OpenForm "x1"
Else
Me.lblScrollingLabel.Caption = Mid(Me.lblScrollingLabel.Caption, 2, _
(Len(Me.lblScrollingLabel.Caption) - 1)) & Left(Me.lblScrollingLabel.Caption, 1)
End If
End Sub

Merhaba..

Sayın Kural'ın bu güzel flash animasyon örneğine ilaveten -mevcut form1 yapınız için- formunuzun kod sayfasını yukarıdaki gibi düzenlerseniz istediğiniz olur..