Excel Forum

Code: Select all

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick  
  If t >= Form1.Mint And t <= Form1.Maxt And h >= Form1.Minh And h <= Form1.Maxh = True Then

            Temp_Cal_Rm_F2.BackColor = Color.RoyalBlue
            PictureBox2.BackColor = Color.RoyalBlue
            PictureBox3.BackColor = Color.RoyalBlue

            ' If t < Form1.Mint And t > Form1.Maxt Or h < Form1.Minh And h > Form1.Maxh Then

            'Temp_Cal_Rm_F2.BackColor = Color.Maroon
            'PictureBox2.BackColor = Color.Maroon
            'PictureBox3.BackColor = Color.Maroon

        End If
        Application.DoEvents()
        System.Threading.Thread.Sleep(1000)
        MyBase.Refresh()
End Sub