Sub Erstellen()
                Dim i as Integer
                For i=1 To 10
                Dim tx4 As New TextBox
                Me.Controls.Add(tx4)
                tx4.Name = "Ergebnis_" & CStr(i)  'eindeutiger Name
                tx4.Left = lb3.Left + lb3.Width
                tx4.Top = l2
                tx4.Width = 60
                tx4.Height = 30
                tx4.BorderStyle = BorderStyle.Fixed3D
                tx4.BackColor = System.Drawing.SystemColors.Control
                tx4.Text = "" 'zum Test gefüllt
                tx4.TextAlign = HorizontalAlignment.Right
                tx4.Visible = True
                mytextBoxes.Add(tx4.Name, tx4)
                AddHandler tx4.LostFocus, AddressOf PrüfEvent
                Next i
                End Sub
 
                Private Sub PrüfEvent(ByVal sender As Object, ByVal e As _
                  EventArgs)
                Dim gustav As String
                if sender = "" then Sender ="a"
                gustav = sender
                End Sub