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
Assumes:
Creare un Timer e settare l'intervallo a 1
Settare il colore BackGround del forn in nero
Inserite una Label con il nome Label1
Usate il codice che trovate in questo esempio

richiamate il codice in questo modo
"Fadeblue Label1" oppure
"Fade Green Label1" oppure
"FadeRed Label1"

nell'evento Timer