How do I make the timer work?

[Mark1]

Hi,

On my form, I have a button, a picture box and a timer.

When I press the button, I want the timer to wait 5 seconds before showing the picture in the picture box (Picture1.Visible = True).

I can`t seem to get the timer to work though.

Any Quick Info on this

Thanks

Mark

[d.paulson]

Option Explicit

Private Sub Form_Load()
Timer1.Interval = 5000
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Picture1.Visible = True)
End Sub


David Paulson

[Green_Beret]

On Button click :

timer.interval = 5000
timer.enabled = true

In Timer function :

picture1.visible = true

Regards,
The Beret.

[Mark1]

Thanx!

Mark