Form型のデータに引数を渡すには？ (ID:108608)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 いつもお世話になります。 ツリービューを作りたくて関数を作成したのですが、 Variantで取得したデータでフォームをセットしようとすると 「オブジェクトが必要です」というエラーになってしまいます。 下記のコードでbからfの引渡しをうまくやりたいのですが、 どのようにやればよいのでしょうか？ 申し訳ありませんが、よろしくお願いいたします。 （ちなみにBに空白を入れてNothingを設定するとうまくいきます） Dim a As String Dim b As Variant Dim c As Long Dim d As Integer Dim f As Form ' a = "メンテナンスメニュー" ' b = "" ' c = 1 ' d = 1 a = "メンテナンスメニュー" b = "Form1" c = 1 d = 1 mr_MnuMan.MenuAdd "管理会計システム", Nothing, 0, 1 If b = "" Then Set f = Nothing Else Set f = b ↑ここで、オブジェクトが必要ですというエラーになります。 End If ＜関数＞mr_MnuMan.MenuAdd （a, f, c, d） a・・・String型 、f・・・Form型、c・・・Long型、d・・・Integer型 になっています。