ﾕｰｻﾞｰﾌｫｰﾑのコマンドボタンの設定について

Question

表の項目と回答を左右に配置し、一番左にクリックすると回答がコピー状態になるﾕｰｻﾞｰﾌｫｰﾑを作るため、コピーボタン、項目（ﾗﾍﾞﾙ）、回答（ﾗﾍﾞﾙ）を表示するﾕｰｻﾞｰﾌｫｰﾑを作ったのですが、コピーボタンを作成するコードの「.Caption = "Copy"」のところで「オブジェクトは、このプロパティ又はオブジェクトをサポートしていません」というエラーが表示されます。

コードは以下です。

Sub UserForm_Initialize()
Dim Myitem As Object '
Dim MyPass As Object
Dim MyCpy As Object
Dim i As Long
Dim Top As Long '項目入力開始位置

With UserForm3
    Top = 20
  
  UserForm3.Label1.Caption = "aaaa" 'Range(“A1”).Text→これにタイトル入れて対応
  
    For i = 1 To 3
    Set Cpybtn = .Controls.Add("Forms.CommandButton.1", "copy" & i, True)
    Set Myitem = .Controls.Add("Forms.Label.1", "MyLabel" & i, True)
    Set MyPass = .Controls.Add("Forms.Label.1", "MyPass" & i, True)
        
        With Myitem  'ここは項目表示
            .Top = Top + 24 * i                 
            .Left = 50                          
            .Height = 20                        
            .Width = 150                       
            .BorderStyle = fmBorderStyleSingle  
            .BackColor = RGB(128, 128, 128)     
            .ForeColor = RGB(255, 255, 255)    
            .Font.Name = "メイリオ"             
            .TextAlign = 2                   
            .FontSize = 16                     
            .Caption = "項目" & i            
         End With
        
         With MyPass  'ここは内容表示
            .Top = Top + 24 * i                 
            .Left = 220                     
            .Height = 20                        
            .Width = 150                     
            .BorderStyle = fmBorderStyleSingle  
            .BackColor = RGB(128, 128, 128)     
            .ForeColor = RGB(255, 255, 255)     
            .Font.Name = "メイリオ"             
            .TextAlign = 2                     
            .FontSize = 16                     
            .Caption = "パスワード" & i         
        End With
         
         With Cpybtn
            .Top = Top + 24 * i
            .Left = 10
            .high = 20
            .Caption = "Copy"                   
         End With

        Next i
        .Show
End With
End Sub

少し長く、省略しようとも思ったのですが、意外な部分に原因があるかもしれないと思いそのまま掲載いたしました。
エラーが出るのは一番下の「With ～ end With」の「.Caption = "Copy"」です。

         With Cpybtn
            .Top = Top + 24 * i
            .Left = 10
            .high = 20
            .Caption = "Copy" 
         End With

以下のURLでは、コマンドボタンに.Caption = が設定されています。
https://www.excellovers.com/entry/2017/07/30/155613

原因がわからなく質問させていただきました。
よろしくお願いします。

Answer 1

.high = 20は.Height = 20ではありませんか？

Comments

[ice930]

ご指摘の通りでした・・・。
誤記ですいません。
デバッグで黄色くなったのが一行下だったので気づくことが出来ませんでした。
ご回答ありがとうございます！