小编Unf*_*ven的帖子

场景是这样的：从数据库中读取新闻，每条新闻显示几秒钟，然后淡出并显示下一条新闻。就像福克斯新闻等新闻网络上的突发新闻一样..

我的主要问题是文本如何淡出并显示下一条新闻？Visual Basic 6 中有许多表单淡入/淡出的示例，但文本却没有。

通过这段代码，我可以在 3 秒后显示新闻文本，然后将其删除。但我希望新闻文本逐渐消失并显示下一条新闻。

Dim EndTime As Long
Dim eee As String
EndTime = Timer + 3
Do While Timer < EndTime
    eee = CLng(EndTime - Timer)
    DoEvents
Loop
lbl(0).Caption = ""