以下是引用prettyjin在2005-11-20 11:35:00的发言：
一个TIMER控件就够了
Private Sub Timer1_Tick(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Timer1.Tick
static a as integer
a=a+1
select case a
case is = 1
Label1.BackColor = System.Drawing.Color.Red
case is = 2
Label1.BackColor = System.Drawing.Color.SeaGreen
if a =2then
a=0
end if
end sub