I Guess, there is no in-built control like that in VB6, But you can Create one..
Place a Timer Control on the Form, and set its Interval =200
Also Place a Label Control..
Write this code:
Private Sub Timer1_Timer()
'
Static T As Integer
Static LFlag As Boolean
'
If LFlag Then
T = T + 10
Else
T = T - 10
End If
If T > 260 Then
T = 250
LFlag = False
End If
If T < 0 Then
T = 0
LFlag = True
End If
'
Label1.ForeColor = RGB(T, T, T)
Label1.Refresh
'
End Sub
well, you will trigger the timer inside each timer so if 1st timer is going to finish the job the second timer must be enabled in order to run the second timer and so on...
in your timer event deduct the opacity of the label in every tick og the timer then after it was about 50% change the color to black or white then back the add the opacity in every tick until it will be 100%. just like that.