Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Label1.Text = "   Größer – 1,2"
        Label2.Text = "- 1,2 bis - 0,9"
        Label3.Text = "- 0,9 bis - 0,6"
        Label4.Text = "- 0,6 bis - 0,3"
        Label5.Text = "- 0,3 bis + 0,3"
        Label6.Text = "+ 0,3 bis + 0,6"
        Label7.Text = "+ 0,6 bis + 0,9"
        Label8.Text = "+ 0,9 bis + 1,2"
        Label9.Text = "   Größer + 1,2"
 
    End Sub
 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        lblAusgabe.Text = TextBox1.Text
        lblAusgabe.Refresh()
    End Sub
 
    Private Sub lblAusgabe_TextChanged(sender As Object, e As EventArgs) _
      Handles lblAusgabe.TextChanged
        'Label11 größer - 1,2
        If lblAusgabe.Text > "- 1,2" Then
            Label11.Text = Label11.Text + 1
        End If
        'Label12 - 1,2 bis - 0,9
        'Label13 - 0,9 bis - 0,6
        'Label14 - 0,6 bis - 0,3
        'Label15 - 0,3 bis + 0,3
        'Label16 + 0,3 bis + 0,6
        'Label17 + 0,6 bis + 0,9
        'Label18 + 0,9 bis + 1,2
 
 
        If lblAusgabe.Text > "1,2 Then" Then
            Label19.Text = Label19.Text + 1
        End If
 
    End Sub
End Class