Option Compare Database
Dim MojInt
Private Sub Form_Open(Cancel As Integer)
Me.TimerInterval = 2
FadeForm Me, Fadezero, 1, 5
End Sub
Private Sub Form_Timer()
On Error Resume Next
If IsEmpty(MojInt) Then
    FadeForm Me, Fadein, 1, 15
   MojInt = 1
End If
 Me.TimerInterval = 0
End Sub