Private Sub Timer1_Timer()
 If UserControl.BackColor = vbRed Then
    UserControl.BackColor = vbGreen
 Else
    UserControl.BackColor = vbRed
 End If
End Sub
 
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
 Timer1.Enabled = True
End Sub
 
Private Sub UserControl_Terminate()
 Timer1.Enabled = False
End Sub