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