Dim frm as Form Dim Ctrl as Control Set frm = Form_frmZugang For each ctrl in frm.Controls Debug.Print "Typ:" & ctrl.ControlType & "Name: " & ctrl.Name Next ctrl