Private Sub cmdPlus1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles cmdPlus1.Click
    hinzufügen(2)   'Hier wird die Prozedur zum Hinzufügen der Buttons, 
    ' Textfelder etc. aufgerufen.
End Sub
Private Sub hinzufügen(ByVal n As Integer)
        lbl_Anzahl2.Visible = t
        lbl_Leistung2.Visible = t
        lblEinzelpreis2.Visible = t
        lbl_Gesamt2.Visible = t
        cmdPlus2.Visible = t
        cmdMinus2.Visible = t
        numAnzahl2.Visible = t
        cboLeistung2.Visible = t
        cboEinzelpreis2.Visible = t
        txtGesamt2.Visible = t
        lbl_Von2.Visible = t
        lbl_UhrBis2.Visible = t
        lbl_Uhr2.Visible = t
        lbl_Stunden2.Visible = t
        numVon2.Visible = t
        numBis2.Visible = t
        numStunden2.Visible = t
    End Sub