For Each C In Form1.Controls
 
                If C.Name = xobjekt Then
 
                    If xobjekt = "Image_Term" Then
 
                        CallByName C(xindex), xeigen, VbLet, C(xindex).xeigen = _
                          xwert
                        Exit For
 
                    Else
 
                        CallByName C, xeigen, VbLet, xwert
                        Exit For
 
                    End If
                End If           
            Next C