質問: -1 Select Case iRet Case -1 : MsgBox("Err1", MsgBoxStyle.OKOnly Or MsgBoxStyle.Critical, "Title") Case -2 : MsgBox("Err2", MsgBoxStyle.OKOnly Or MsgBoxStyle.Critical, "Title") Case -3 : MsgBox("Err3", MsgBoxStyle.OKOnly Or MsgBoxStyle.Critical, "Title") End Select End If ``` ### 試したこと lsdFormに対しての型宣言が足りないと思い、下記のように宣言しましたが 状況は変わりません。 ``` Dim lsdForm As System.Object ``` また、Option Strict Onがない状態で、「lsdForm」の宣言部分をオブジェクトブラウザーで見ると ``` .NET Framework クラス階層のすべてのクラスをサポートし、派生クラスに下位レベルのサービスを提供します。これは、.NET Framework の全クラスの基本クラスであり、型階層のルートです。 ``` となっていました。 ### 補足情報(FW/ツールのバージョンなど) VisualStudio2010 VB.NET
回答: 遅延バインディングは、以下コードの部分で使用されています。 obj = CreateObject("xxxxxx.xxx") 残念ながら、Option Strict Onを宣言した場合、この方法(遅延バインディング)を使えません。 CreateObject("xxxxxx.xxx")が何かは分かりませんが、COM参照等ができればその方法で、そうでなければOption Strict Onをやめるしかないでしょう。