フォーム間で連想配列の引渡しを行っているのですが、
以下のメッセージが表示され上手くできません。
どこがいけないのでしょうか。

「引数の数が一致していません。または不正なプロパティを指定しています。(Error 450)」

'Form1
Private Sub Command1_Click()
    Dim objDic As Object
    
    Set objDic = CreateObject("Scripting.Dictionary")

    '連想配列に値を設定する処理

    Form2.Show
    Form2.Data_Delivery (objDic)
    Unload Me

End Sub

'Form2
Private Sub Form_Load()
   処理
End Sub

Private Sub Command1_Click()
   処理
End Sub

Private Sub Command2_Click()
   処理
End Sub

Public Sub Data_Delivery(ByVal arrData As Object)
    Dim objDic As Object
    
    Set objDic = CreateObject("Scripting.Dictionary")

　　objDic = arrData
End Sub

>
> フォーム間で連想配列の引渡しを行っているのですが、
> 以下のメッセージが表示され上手くできません。
> どこがいけないのでしょうか。
>
> 「引数の数が一致していません。または不正なプロパティを指定しています。(Error 450)」

>Form2.Data_Delivery (objDic)
（）はいらないですね。

> objDic = arrData
オブジェクトの代入はSetを使いましょう

あと、Public Sub Data_Deliveryプロシージャ内で
Set objDic = CreateObject("Scripting.Dictionary")でインスタンスを作成しているのに
その後でobjDic = arrDataってなんか意味あるんですか？
Set objDic = CreateObject("Scripting.Dictionary")はいらないんじゃないですか？

> >
> > フォーム間で連想配列の引渡しを行っているのですが、
> > 以下のメッセージが表示され上手くできません。
> > どこがいけないのでしょうか。
> >
> > 「引数の数が一致していません。または不正なプロパティを指定しています。(Error 450)」
>
> >Form2.Data_Delivery (objDic)
> （）はいらないですね。
ありがとうございます。
エラーがでなくなりました。

> Public Sub Data_Delivery(ByVal arrData As Object)
>     Dim objDic As Object
>    
>     Set objDic = CreateObject("Scripting.Dictionary")
>
> 　　objDic = arrData
> End Sub

引数のarrDataをそのままData_Deliveryの中で使うのは駄目なんですか？
それか、Set objDic = arrDataとするとか。