Timed label visibility

[lucyLocket]

Hi

I have this simple code

Private Sub btnHead_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.help_text.Visible = True
End Sub

which causes a label to appear on a form as the mouse moves over an image. Because it is not a button in the true sense of the word, there is no choice given for using "onMouseOut" or something similar.

How do I make the above label visible for say 3 seconds, then become invisible.

Thanks

 

[lucyLocket]

Or if I could do something like this pseudo code,

If mouse moved over btn_head then

help_text.visible = true

else

help_text.visible = false

End if

But I'm not sure how to write this properly, and anyway once the label was visible - would this code return it to invisible again? I'm not sure it would....

Any help would be appreciated.

Thanks