Spash Screen that Zooms out

[karinos]

Hi There,
I have created a splash screen called splash in the form section. This is how my splash screen is working, at first it shows you small letters and the letters gets bigger and after couple of seconds i have some image and the image starts small and gradually gets bigger and bigger but my problem is that i want after the text and the image is shown; i want to close the splash form and open another form called LOB Selection Tab. I will recap here: after the image and the text is shown i want to close the splash and open another form called LOB Selection Tab. I have attached the file so you see what i am talking about. Thanks for your time and efforts.
Here is my code"

Private Sub Form_Timer()
If Me.lbl1.Width = 7000 Then
    GoTo ImageExpand
    Else
    Me.lbl1.Width = Me.lbl1.Width + 100
    Me.Repaint
    



ImageExpand:

If Me.Image1.Width = 6000 Then
    Exit Sub
    Else
    Me.Image1.Width = Me.Image1.Width + 100
    Me.Repaint
End If
End If
Exit Sub
Call Close_Open
'If Me.Image1.Width = 4000 Then
'Me.lbl1.Visible = True
'End If
'DoCmd.Close acForm, "Splash", acSaveYes
'DoCmd.OpenForm "LOB Selection Tab", acNormal
End Sub
Private Sub Close_Open()
DoCmd.Close acForm, "Splash", acSaveYes
DoCmd.OpenForm "LOB Selection Tab", acNormal

 

[Uncle Gizmo]

I would guess that you would call the code to open the other form here:

ImageExpand:

If Me.Image1.Width = 6000 Then
'OPEN OTHER FORM
'AND POSSIBLY CLOSE THIS ONE
Exit Sub

 

[Uncle Gizmo]

On second thoughts I don't think that's quite right. Don't know.