Evento Timer

Galera,
Tenho um evento timer em um formulário que executa o código abaixo a cada 1 segundo, porém ao executar o código ele perde o foco do que estou escrevendo, por exemplo se estou em uma textbox digitando ao executar o timer o foco sai da digitação, oq devo fazer?

Código:


If Me.Imagem50.Visible Or Me.Imagem33.Visible Or Me.Imagem34.Visible Or Me.Imagem35.Visible Or Me.Imagem54.Visible Or Me.Imagem48.Visible Or Me.Imagem39.Visible Or Me.Imagem40.Visible Or Me.Imagem41.Visible Or Me.Imagem56.Visible Or Me.Imagem60.Visible Or Me.Imagem44.Visible Or Me.Imagem47.Visible Or Me.Imagem45.Visible = True Then
'Me.Imagem50.Visible = True and Me.Imagem23.Visible = True and Me.Imagem34.Visible = True and Me.Imagem35.Visible = True and Me.Imagem54.Visible = True and Me.Imagem48.Visible = True and Me.Imagem39.Visible = True and Me.Imagem40.Visible = True and Me.Imagem41.Visible = True and Me.Imagem56.Visible = True and Me.Imagem60.Visible = True and Me.Imagem44.Visible = True and Me.Imagem47.Visible = True and Me.Imagem45.Visible = True true then
Me.Imagem30.Visible = True
Me.Imagem53.Visible = True
Me.Imagem51.Visible = True
Me.Imagem52.Visible = True
Me.Imagem36.Visible = True
Me.Imagem38.Visible = True
Me.Imagem57.Visible = True
Me.Imagem49.Visible = True
Me.Imagem43.Visible = True
Me.Imagem42.Visible = True
Me.Imagem58.Visible = True
Me.Imagem46.Visible = True
Me.Imagem61.Visible = True
Me.Imagem55.Visible = True

Me.Imagem50.Visible = False
Me.Imagem33.Visible = False
Me.Imagem34.Visible = False
Me.Imagem35.Visible = False
Me.Imagem54.Visible = False
Me.Imagem48.Visible = False
Me.Imagem39.Visible = False
Me.Imagem40.Visible = False
Me.Imagem41.Visible = False
Me.Imagem56.Visible = False
Me.Imagem60.Visible = False
Me.Imagem44.Visible = False
Me.Imagem47.Visible = False
Me.Imagem45.Visible = False
DoCmd.RunMacro "OpenKickOut"

ElseIf Me.Imagem30.Visible Or Me.Imagem53.Visible Or Me.Imagem51.Visible Or Me.Imagem52.Visible Or Me.Imagem36.Visible Or Me.Imagem38.Visible Or Me.Imagem57.Visible Or Me.Imagem49.Visible Or Me.Imagem43.Visible Or Me.Imagem56.Visible Or Me.Imagem42.Visible And Me.Imagem58.Visible Or Me.Imagem46.Visible Or Me.Imagem61.Visible = True Then
Me.Imagem50.Visible = True
Me.Imagem33.Visible = True
Me.Imagem34.Visible = True
Me.Imagem35.Visible = True
Me.Imagem54.Visible = True
Me.Imagem48.Visible = True
Me.Imagem39.Visible = True
Me.Imagem40.Visible = True
Me.Imagem41.Visible = True
Me.Imagem56.Visible = True
Me.Imagem60.Visible = True
Me.Imagem44.Visible = True
Me.Imagem47.Visible = True
Me.Imagem45.Visible = True

Me.Imagem30.Visible = False
Me.Imagem53.Visible = False
Me.Imagem51.Visible = False
Me.Imagem52.Visible = False
Me.Imagem36.Visible = False
Me.Imagem38.Visible = False
Me.Imagem57.Visible = False
Me.Imagem49.Visible = False
Me.Imagem43.Visible = False
Me.Imagem42.Visible = False
Me.Imagem58.Visible = False
Me.Imagem46.Visible = False
Me.Imagem61.Visible = False
Me.Imagem55.Visible = False
DoCmd.RunMacro "OpenKickOut"

End If
End Sub

aumente o tempo para 10.000 (10 segundos)

ou rode sua rotina em um formulário oculto