Private Sub hsbTemp_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles hsbTemp.Scroll
    Dim TempF As Single, TempC As Single
    'Read F and convert to C - divide by 10 needed since Value is tenths of degrees
    TempF = CSng(Val(hsbTemp.Value) / 10)
    'check to see if changed from hot to cold or vice versa
    If IsHot And TempF < 70 Then
      'changed to cold
      IsHot = False
      lblBlue.BringToFront()
      hsbTemp.BringToFront()
    ElseIf Not (IsHot) And TempF >= 70 Then
      'changed to hot
      IsHot = True
      lblRed.BringToFront()
      hsbTemp.BringToFront()
    End If
    lblTempF.Text = Format(TempF, "0.0")
    TempC = (TempF - 32) * 5 / 9
    lblTempC.Text = Format(TempC, "0.0")
  End Sub