Ai olha, em vez de eu utilizar o TIMER eu Utilizo isto!

Insira este código em um MODULO

Public Sub PauseT(PauseTime As Integer)
Dim Start, Finish, TotalTime
    Start = Timer   ' Set start time.
    Do While Timer < Start + PauseTime
        DoEvents    ' Yield to other processes.
    Loop
End Sub

Na sua aplicação

Private Form_load()

PauseT(1) ' - - > Ele dá um tempo de 1 segundo, para você fazer alguma coisa"

end sub

Espero que tenha te ajudado,

Até mais,

Atenciosamente,
Marcus Vinícius

Em caso de problemas com o código entre em contato comigo no e-mail
Msmarcus@hotmail.com que em breve estarei entrando em contato contigo.