Scrolling words for 3 conditional welcoming words.

[Frank Situmorang]

Hello:

Learning from this forum, I have made 3 conditional welcoming words with the
flowwing VBA. My question is how can we make it works if we want the 3
conditional wecoming words scrolling, and we want this form automatically
closed if we go to the next main switchboards
Option Compare Database

Private Sub Form_Activate()
'When the database is opened display welcome user message.
'When the timer interval is reached, this form closes and opens Switchboard
If Time() < 0.5 Then
[lblMorning].Visible = True
[lblAfternoon].Visible = False
[LblEvening].Visible = False
ElseIf Time() > 0.5 And Time() < 0.75 Then
[lblMorning].Visible = False
[lblAfternoon].Visible = True
[LblEvening].Visible = False
ElseIf Time() > 0.75 Then
[lblMorning].Visible = False
[lblAfternoon].Visible = False
[LblEvening].Visible = True
End If
End Sub


Thanks for anyhelp on this.