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 |