FadeLabel

Public Sub FadeIn(lbl As Label, Optional speed As Single)
Dim Color_Count As Long
Dim NewC As Long
Dim x As Integer
For x = 64 To 1 Step -5
Color_Count = 255 - (x * 4 - 1)
NewC = RGB(Color_Count, Color_Count, 0)
lbl.ForeColor = NewC
Call Wait(speed / 10)
Next x
lbl.ForeColor = &HFFFF&
End Sub

'FadeOut:

Public Sub FadeOut(lbl As Label, Optional speed As Single)
Dim Color_Count As Long
Dim NewC As Long
Dim x As Integer
For x = 1 To 64 Step 5
Color_Count = 255 - (x * 4 - 1)
NewC = RGB(Color_Count, Color_Count, 0)
lbl.ForeColor = NewC
Call Wait(speed / 10)
Next x
lbl.ForeColor = &H0&
End Sub

Function Wait(HLong As Single)
Current = Timer
Do While Timer - Current < HLong
DoEvents
Loop
End Function