Public Class Form1
    Private Sub czysc()

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    End Sub


    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        czysc()
        PictureBox1.Visible = False
        PictureBox2.Visible = False
        PictureBox3.Visible = False
        PictureBox4.Visible = False
    End Sub



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim v As Double = TextBox1.Text
        czysc()
        If v < 7.9 Then
            PictureBox1.Visible = True
        ElseIf v < 11.2 Then
            PictureBox2.Visible = True
        ElseIf v < 16.7 Then
            PictureBox3.Visible = True
        ElseIf v < 130 Then
            PictureBox4.Visible = True
        End If


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Close()
    End Sub
End Class