Private Function ShowFormToEditMitarbeiter(ByRef oBtnMitarbeiterEdit As _
  System.Controls.Button)
        Dim oControl As frmDialogEditMitarbeiter.ControlCollection
        Select Case ShowFormToEditMitarbeiter
            Case oControl Is btnAddFerien
                MsgBox("Ferien")
            Case oControl Is btnAddArbeitsverhaeltnis
                'oBtnMitarbeiterEdit Is btnAddArbeitsverhaeltnis
                MsgBox("Arbeitsverhältnis")
        End Select

If oBtnMitarbeiterEdit Is btnAddFerien Then
 
            'Controls definieren
            Dim txtGuthaben As New TextBox
            txtGuthaben.Location = New Point(30, 60)
            txtGuthaben.Size = New Size(50, 50)
            oForm.Controls.Add(txtGuthaben)
 
            'Titel setzen
            oForm.Titel = "Ferien"
            oForm.Untertitelitel = "Neues Ferienverhältnis hinzufügen"
 
            oForm.Show
        ElseIf oBtnMitarbeiterEdit Is btnAddArbeitsverhaeltnis Then
            'MsgBox("arbeitsverhältnis")
            oForm.Show
        End If

Select Case ShowFormToEditMitarbeiter