下記のコードを実行すると
”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
Nameプロパティはデザイン時のみ設定可能です。
MSDNライブラリ、Nameプロパティを参照してください