動的に作成されたボタンにコードを割り当てる

Question

私は、私のプロジェクトの「モジュール」セクションのModule 1に書いたtransferというマクロを実行するためにExcelフォームを動的に作成しました。 。私は実際に私が実行したときに、フレーム（私も動的にを作成しました）ではなく、何らかの理由でTransfer to Sheetボタンを作成するために管理してユーザーフォームでこれまでに書いたコードを貼り付けました下

VBA私は438 errorメッセージはObject doesn't support this property or methodと言う。

どのように私はこれを解決することができます誰か教えてください？ここで

はコードです：ここでは

Dim framecontrol1 As Control 

Set workitemframe = Controls.Add("Forms.Frame.1") 
With workitemframe 
    .Width = 400 
    .Height = 400 
    .Top = 160 
    .Left = 2 
    .ZOrder (1) 
    .Visible = True 
End With 

workitemframe.Caption = "Test" 
Set framecontrol1 = workitemframe.Controls.Add("Forms.commandbutton.1") 

With framecontrol1 
    .Width = 100 
    .Top = 70 
    .Left = 10 
    .ZOrder (1) 
    .Visible = True 
    .Caption = "Transfer to Sheet" 
End With 
framecontrol1.OnAction = "transfer"