Public Class Form1
    Inherits System.Windows.Forms.Form

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Set Initial Values at Form Open so the List boxes will display something...
        VFahr.Value = 50
        LstFahr.Items.Add(122 & Chr(176))
        VCels.Value = 50
        LstCels.Items.Add(50 & Chr(176))

    End Sub

    Private Sub VFahr_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VFahr.Scroll
        LstFahr.Items.Clear() 'Clearing and setting default forground Text Color to Black
        LstCels.Items.Clear()
        LstFahr.ForeColor = Color.Black
        LstCels.ForeColor = Color.Black
        If (CInt(VFahr.Value)) < 5 Then 'If Scroll Box Value is less than 5...
            LstCels.ForeColor = Color.Red 'Change Foreground Text to Red
        ElseIf (32 + (1.8 * (CInt(VCels.Value)))) > 200 Then 'If calculated Fahrenheit Temp. is greater than 200...
            LstFahr.ForeColor = Color.Red 'Change Foreground Text to Red
        End If 'Else carry on with default colors

        'Next Statement calculates Fahrenheit from Celsius value directly
        LstFahr.Items.Add((32 + (1.8 * (CInt(VCels.Value)))) & Chr(176)) 'Display Temperature Value (Celsius)
        LstCels.Items.Add((CInt(VFahr.Value)) & Chr(176)) ' Display Temperature Value
        VCels.Value = (CInt(VFahr.Value)) ' Both Scroll Boxes have the same Min/Max Size, so this converts them
    End Sub

    Private Sub VCels_Scroll(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ScrollEventArgs) Handles VCels.Scroll
        LstFahr.Items.Clear() 'Clearing and setting default Forground Text Color to Black
        LstCels.Items.Clear()
        LstFahr.ForeColor = Color.Black
        LstCels.ForeColor = Color.Black
        If (CInt(VFahr.Value)) < 5 Then 'If Scroll Box Value is less then 5 ...
            LstCels.ForeColor = Color.Red 'Change Foreground Text to Red
            'If Calculated Fahrenheit value is less than 200...
        ElseIf (32 + (1.8 * (CInt(VCels.Value)))) > 200 Then
            LstFahr.ForeColor = Color.Red 'Change Foreground text color to red
        End If

        'Next Statement calculates Fahrenheit from Celsius value directly
        LstFahr.Items.Add((32 + (1.8 * (CInt(VCels.Value)))) & Chr(176)) 'Display Temperature Value (Fahrenheit)
        LstCels.Items.Add((CInt(VFahr.Value)) & Chr(176)) ' Display Temperature Value (Celsius)
        VFahr.Value = (CInt(VCels.Value)) ' Both Scroll Boxes have the sqme Min/Max Size, so this converts them

    End Sub
End Class