Timed event on form

[Ice Rhino]

I wish a label to be visible for only 10 seconds when the call is made to it. I am sure this is basic VB stuff. How can I set it so that when

Me.lblnodateten.Visible = True

is fired, a 10 second counter will kick off and then the line

Me.lblnodateten.Visible = False

will activate

Kindest Regards

 

[Mile-O]

Whenever you want to start the timer, use this code:

Me.lblnodateten.Visible = True
Me.TimerInterval = 1000

And put this code in your form's Timer event.

Private Sub Form_Timer()
    Static bytCount As Byte
    If bytCount = 10 Then
        Me.lblnodateten.Visible = False
        Me.TimerInterval = 0
        bytCount = 0
    Else
        bytCount = bytCount + 1
    End If
End Sub

 

[Ice Rhino]

I have put the code in in the two places suggested but the label does not disappear

Regards

 

[Mile-O]

Slight amendment to the code...

 

[Ice Rhino]

and the slight amendment is?

Regards

 

[Mile-O]

The code I posted above...with the amendment.

 

[Ice Rhino]

My Bad, sorry

Regards

 

[Ice Rhino]

Works like a charm, thank you very much and apologies for not noticing the amended code

Kindest Regards