Option Compare Database
Option Explicit
Dim BrojBlinka  As Integer
Dim Tekst As String

Private Sub Form_Open(Cancel As Integer)
Tekst = Me.Caption
End Sub

Private Sub Form_Timer()

If Format$(Me.Caption) = "" Then
Me.Caption = Tekst
Else
Me.Caption = ""
End If
Me.Refresh
BrojBlinka = BrojBlinka + 1
If BrojBlinka = 10 Then
DoCmd.Close
End If
End Sub