Sandaysoft

    Private Sub PressureAtStationGraphic()

        Dim Pressure As Double

        'copy text held in Label11 for pressure to a variable called "Pressure", as it wont work correctly if just using Label11.text string.
        Pressure = Label11.Text



        'Procedure to display High or Low pressure graphic

        If Label16.Text = "mb" OrElse Label16.Text = "hPa" Then
            GoTo hPa_mb_Pressure
        ElseIf Label16.Text = "in" Then
            GoTo in_Pressure
        End If



        ' Turning point from Low to High pressure =  hPa & mb (same units) = 1013.25,  same value for in = 29.921

hPa_mb_Pressure:
        If Pressure <= "1013.25" Then
            PictureBox4.Image = PictureBox2.Image ' Shows Low Pressure symbol if pressure is less than or equal to 1013.25
        Else
            PictureBox4.Image = PictureBox3.Image ' Shows High Pressure symbol if pressure is less than or equal to 1013.25
        End If
        Exit Sub

in_Pressure:
        If Pressure <= "29.921" Then
            PictureBox4.Image = PictureBox2.Image ' Shows Low Pressure symbol if pressure is less than or equal to 29.921
        Else
            PictureBox4.Image = PictureBox3.Image ' Shows High Pressure symbol if pressure is less than or equal to 29.921
        End If
        Exit Sub
    End Sub

[b]Pseudo code:[/b]

If DewPoint is GreaterThan (Temperature -1.1) AndAlso DewPoint is LessThan (Temperature +1.1) AndAlso Humidity is GreaterThan or Equal to "90%"
'// Then the condition is met
(Show Rain Drop in Blue)

Else (if condition is not met)
'// Condition is not met
(Show Rain Drop faded in grey)

End if