Controls umbenennen

[StefKe]

Hallochen allerseits, ich möchte Checkbox etc... umbenennen.

Code:

Sub umbenennen()
    Dim ObCb As Object
    Dim oldName
    Dim newName
   
    For Each ObCb In UserForm1.Controls
        oldName = ObCb.Name
        If oldName = "CheckBox1" Then
           newName = Replace(oldName, "Check", "chk")
            ObCb.Name = newName
        End If
    Next ObCb
End Sub

"Eigenschaft kann zur Laufzeit nicht gesetzt werden" - wie kann der Name dennoch geändert werden?


Danke
Stefan