FadeLabel2

Private Sub FadeRed(Label As Label)
Static FadeColor As Integer
FadeColor = FadeColor + 1
Label.ForeColor = RGB(FadeColor * 2.5, 0, 0)
End Sub

Private Sub FadeBlue(Label As Label)
Static FadeColor As Integer
FadeColor = FadeColor + 1
Label.ForeColor = RGB(0, 0, FadeColor * 2.5)
End Sub

Private Sub FadeGreen(Label As Label)
Static FadeColor As Integer
FadeColor = FadeColor + 1
Label.ForeColor = RGB(0, FadeColor * 2.5, 0)
End Sub