Private Sub Form_Load()Text1.BackColor = vbRedText2.BackColor = vbBlueTimer1.Interval = 200Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()Dim a As Longa = Text2.BackColorText2.BackColor = Text1.BackColorText1.BackColor = aEnd Sub