Private Sub Form_Load() End Sub Private Sub Timer1_Timer() Label1.Tag = Label1.Tag + 10 If Label1.Tag > 255 Then Timer1.Enabled = False: Timer2.Enabled = True Label1.ForeColor = RGB(0, 0, Label1.Tag) End Sub Private Sub Timer2_Timer() Label1.Tag = Label1.Tag - 10 If Label1.Tag < 1 Then Timer2.Enabled = False: Timer1.Enabled = True Label1.ForeColor = RGB(0, 0, Label1.Tag) End Sub