オブジェクト名を変更したいのですが

なお 2004-04-23 03:12:36 No: 83105

下記のコードを実行すると
”nameプロパティは実行時には設定できません”というメッセージがでてしまい
ます。
プロパティウィンドウで設定するしかないのでしょうか？

Dim Ctl As Control
  With 商品
    For Each Ctl In 商品.Controls
      If TypeName(Ctl) = "Label" Then
         If Ctl.Name = "店コードラ" Then
            Ctl.Name = "商品コードラ"
         End If
      End If
    Next Ctl
  End With

うにぃ 2004-04-23 03:50:39 No: 83106

Nameプロパティはデザイン時のみ設定可能です。

MSDNライブラリ、Nameプロパティを参照してください