Type ContrAttrib
  AttribName as String
  AttribValue as Variant
End Type
 
Dim AttribList(3) As ContrAttrib
Dim Ctrl As Control
Dim i As Integer
...

On Error Resume Next
For i = 0 To 3
  Ctrl.Attributes(AttribList(i).AttribName) = AttribList(i).AttribVal
Next i

Select Case AttribList(i).AttribName
  Case "Left"
    Ctrl.Left = AttribList(i).AttribValue
  Case "Right"
    Ctrl.Right = AttribList(i).AttribValue
  ...
End Select

Immer noch auf der Suche nach dem "Tu's trotzdem"-Button...