To change color, use the ForeColor property of a control.
Example:
Label1.ForeColor = QBColor(vbRed)
Use this code for a delay:
Dim t, delay
t = Timer
delay = (number of seconds to delay, can also use decimals e.g. 1.5)
Do Until Timer >= t+delay: Loop
