Dim tx4 As New TextBox
            Me.Controls.Add(tx4)
 
            tx4.Name = "Ergebnis"
            tx4.Left = 160
            tx4.Top = l2
            tx4.Width = 80
            tx4.Height = 15
            tx4.Text = tx4.Name
            tx4.TextAlign = HorizontalAlignment.Right
            tx4.Visible = True
            'tx4.TextChanged = New EventHandler(textBox1_TextChanged)
            AddHandler tx4.Click, AddressOf test

Sub test()
        Dim m
        For iz = 1 To 10
            m = ereignis(i)
        Next
    End Sub