'strich
 
        'Zahl nach dem ersten Strich.
        Dim zmz1 As Integer = Integer.Parse(TextBox1.Text) - Integer.Parse( _
          Label5.Text)
        Label6.Text = zmz1.ToString()
 
 
        'nimm zahl 2 herunter. 
        Label8.Text = (TextBox2.Text)
 
        'nimm zahl 3 herunter.
        Label21.Text = (TextBox3.Text)
 
        'zahl vor Strich 2.
        Label3.Text = (Label10.Text * TextBox9.Text)
 
        Dim rez2 As Integer = Integer.Parse(Label6.Text & Label8.Text) \ _
          Integer.Parse(TextBox9.Text)
        Label10.Text = rez2.ToString()
 
        'strich
 
        'In Abstatz 2 Rest
        Dim ia2r As Integer = Integer.Parse(Label6.Text & Label8.Text) - _
          Integer.Parse(Label3.Text)
        Label20.Text = ia2r.ToString()
 
        'Absatz 3 Zahlen durch rechnen.
        Dim a3zdr As Integer = Integer.Parse(Label20.Text & Label21.Text) \ _
          Integer.Parse(TextBox9.Text)
        Label6.Text = a3zdr.ToString()
 
        'rechne absatz3 indirekten rest aus.
        Dim a3idr As Integer = Integer.Parse(Label11.Text) * Integer.Parse( _
          TextBox9.Text)
        Label24.Text = a3idr.ToString()
 
        Dim resz3 As Integer = Integer.Parse(Label20.Text & Label21.Text) \ _
          Integer.Parse(TextBox9.Text)
        Label11.Text = resz3.ToString()
 
        'strich
 
        'nach strich 3 rest.
        Dim ns3r As Integer = Integer.Parse(Label20.Text & Label21.Text) - _
          Integer.Parse(Label24.Text)
        Label27.Text = ns3r.ToString()
 
        'nimm zahl 4 herunter
        Label28.Text = (TextBox4.Text)
 
        'rechne abs4 indirekten rest aus.
        Dim a4idr As Integer = Integer.Parse(Label12.Text) * Integer.Parse( _
          TextBox9.Text)
        Label30.Text = a4idr.ToString()
 
        Dim resz4 As Integer = Integer.Parse(Label27.Text & Label28.Text) \ _
          Integer.Parse(TextBox9.Text)
        Label12.Text = resz4.ToString()
 
        'strich
 
        'nach strich 4 rest.
        Dim ns4r As Integer = Integer.Parse(Label27.Text & Label28.Text) - _
          Integer.Parse(Label30.Text)
        Label27.Text = ns4r.ToString()
 
        'nimm zahl5 herunter
        Label39.Text = (TextBox5.Text)
 
        'rechne abs5 indirekten rest aus.
        Dim a5idr As Integer = Integer.Parse(Label13.Text) * Integer.Parse( _
          TextBox9.Text)
        Label30.Text = a5idr.ToString()
 
        Dim resz5 As Integer = Integer.Parse(Label38.Text & Label39.Text) \ _
          Integer.Parse(TextBox9.Text)
        Label13.Text = resz5.ToString()
 
        'strich
 
        'nach strich 5 rest.
        Dim ns5r As Integer = Integer.Parse(Label38.Text & Label39.Text) - _
          Integer.Parse(Label44.Text)
        Label27.Text = ns5r.ToString()
 
        'nimm zahl6 herunter
        Label57.Text = (TextBox6.Text)
 
        'rechne abs6 indirekten rest aus.
        Dim a6idr As Integer = Integer.Parse(Label14.Text) * Integer.Parse( _
          TextBox9.Text)
        Label30.Text = a6idr.ToString()
 
        Dim resz6 As Integer = Integer.Parse(Label51.Text & Label57.Text) \ _
          Integer.Parse(TextBox9.Text)
        Label14.Text = resz6.ToString()
 
        'strich
 
        'nach strich 6 rest.
        Dim ns6r As Integer = Integer.Parse(Label51.Text & Label57.Text) - _
          Integer.Parse(Label58.Text)
        Label60.Text = ns6r.ToString()
 
        'nimm zahl7 herunter
        Label72.Text = (TextBox7.Text)
 
        'rechne abs7 indirekten rest aus.
        Dim a7idr As Integer = Integer.Parse(Label15.Text) * Integer.Parse( _
          TextBox9.Text)
        Label73.Text = a7idr.ToString()
 
        Dim resz7 As Integer = Integer.Parse(Label60.Text & Label72.Text) \ _
          Integer.Parse(TextBox9.Text)
        Label15.Text = resz7.ToString()
 
        'strich
 
        'nach strich 7 rest.
        Dim ns7r As Integer = Integer.Parse(Label60.Text & Label72.Text) - _
          Integer.Parse(Label73.Text)
        Label60.Text = ns7r.ToString()
 
        'nimm zahl8 herunter
        Label89.Text = (TextBox8.Text)
 
        'rechne abs8 indirekten rest aus.
        Dim a8idr As Integer = Integer.Parse(Label16.Text) * Integer.Parse( _
          TextBox9.Text)
        Label90.Text = a8idr.ToString()
 
        Dim resz8 As Integer = Integer.Parse(Label75.Text & Label89.Text) \ _
          Integer.Parse(TextBox9.Text)
        Label16.Text = resz8.ToString()
 
    End Sub