VB中怎么使得文字淡出淡入

VB中如何使得文字淡出淡入
如何才能使得label控件的文字淡出淡入呢？
麻烦给解决一下

[解决办法]
Private Sub Timer1_Timer()
Static i As Byte
i = i + 1
If i > = 255 Then
i = i - 255
End If
Label1.ForeColor = RGB(255 - i, i, 255 - i)
End Sub