Question

在VB软件我想弄 一行文字，使他每过几秒就改变一次颜色怎么弄呢？

Answer 1

添加Time控件、设置运行时间（想设多少设多少）

Answer 2

使用Timer控件

Private Sub Timer1_Timer()
If Label1.ForeColor = vbRed Then
Label1.ForeColor = vbGreen
Else
Label1.ForeColor = vbRed
End If
End Sub

追问

这是需要用到 QBColor 函数的，那么要怎么弄呢~

追答

If Label1.ForeColor = QBColor(4) Then
Label1.ForeColor = QBColor(2)
Else
Label1.ForeColor = QBColor(4)
End If